--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/slide-cr.pl	Thu Jan 25 22:18:40 2018 +0900
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+
+use lib "lib","lib/Slideshow/local/lib/perl5";
+
+use Slideshow::Util;
+use feature 'say';
+
+my $flags = getopts(@ARGV);
+
+help() if $flags->{help};
+
+
+if ($flags->{new}){
+    new(set_template('lib/template.md'),"slides");
+} elsif ($flags->{build}) {
+   build_recently("slides");
+} else {
+    build_pinpoint($flags->{build_point});
+}
+
+
+sub help {
+    say 'slider [%options]';
+}
+
+
+__END__
\ No newline at end of file

--- a/slide_cr.pl	Thu Jan 25 18:49:07 2018 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,30 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use utf8;
-
-use lib "lib","lib/Slideshow/local/lib/perl5";
-
-use Slideshow::Util;
-use feature 'say';
-
-my $flags = getopts(@ARGV);
-
-help() if $flags->{help};
-
-
-if ($flags->{new}){
-    new(set_template('lib/template.md'),"slides");
-} elsif ($flags->{build}) {
-   build_recently("slides");
-} else {
-    build_pinpoint($flags->{build_point});
-}
-
-
-sub help {
-    say 'slider [%options]';
-}
-
-
-__END__
\ No newline at end of file