--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/slide-cr	Fri Jan 26 14:16:04 2018 +0900
@@ -0,0 +1,34 @@
+#!/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");
+} elsif ( $flags->{open}) {
+    open_slide("slides");
+} elsif ( $flags->{edit}) {
+    edit_slide("slides");
+} else {
+    build_pinpoint($flags->{build_point});
+}
+
+
+sub help {
+    say 'slider [%options]';
+}
+
+
+__END__
\ No newline at end of file