--- amv.pl	2007/07/21 10:28:39	14
+++ amv.pl	2007/07/21 11:05:43	15
@@ -15,13 +15,21 @@
 use Data::Dump qw/dump/;
 use Carp qw/confess/;
 use File::Path;
+use Getopt::Long;
 
 my $dump = 0;
 my $debug = 0;
+my $dump_dir = '/tmp/dump/';
+
+GetOptions(
+	"dump!"			=> \$dump,
+	"debug!"		=> \$debug,
+	"dump-dir=s"	=> \$dump_dir,
+);
 
 my $path = shift @ARGV || die "usage: $0 movie.amv\n";
 
-my $dump_dir = '/tmp/dump/';
+
 rmtree $dump_dir if -e $dump_dir;
 mkpath $dump_dir || die "can't create $dump_dir: $!";