--- stich.pl	2007/10/15 22:34:20	7
+++ stich.pl	2007/10/16 09:27:16	10
@@ -9,12 +9,17 @@
 use File::Find;
 use Data::Dump qw/dump/;
 use Imager;
-
-my $path = shift @ARGV || die "usage: $0 path_to_dump_dir\n";
+use Getopt::Long;
 
 # Mireo 1, Google 0
 my $flip_vertical = 0;
 
+GetOptions(
+	'flip-vertical'	=> \$flip_vertical,
+);
+
+my $path = shift @ARGV || die "usage: $0 path_to_dump_dir\n";
+
 my ( $range, $usage );
 
 my @files;