--- a/slideshow.pl	Wed Jan 24 23:32:25 2018 +0900
+++ b/slideshow.pl	Thu Jan 25 16:59:37 2018 +0900
@@ -3,15 +3,33 @@
 use warnings;
 use utf8;
 
+use lib "lib","lib/Slideshow/local/lib/perl5";
 
-use lib 'lib';
 use Slideshow::Util;
-use Getopt::Long;
+use feature 'say';
+
+my $flags = getopts(@ARGV);
+
+help() if $flags->{help};
+
 
-my $new_flag;
+if ($flags->{new}){
+    new(set_template('lib/template.md'),"slides");
+} elsif ($flags->{build}) {
+   build_recently("slides");
+} else {
+    build_pinpoint($flags->{build_point});
+}
 
-GetOptions("new" => \$new_flag) or die("Error at new flags");
 
-if ($new_flag){
-    new(set_template('lib/template.md'),"slides");
+sub help {
+    say 'slider [%options]';
 }
+
+
+__END__
+
+my $flags = getopts(@ARGV);
+
+if ($flags->{new}){
+