--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/imager	Fri Jul 29 10:58:05 2011 +0200
@@ -0,0 +1,71 @@
+#! /usr/bin/perl
+use 5.10.0;
+use strict;
+use warnings;
+use Getopt::Long;
+use Pod::Usage;
+
+Getopt::Long::Configure("require_order");
+GetOptions(
+    "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) },
+    "m|man" => sub { pod2usage(-verbose => 2, -exit => 0,
+	-noperldoc => system("perldoc -V >/dev/null 2>&1")) },
+) and $ARGV[0] ~~ [qw(save restore fuse check)]
+  or pod2usage;
+
+exec "$0." .shift() => @ARGV;
+
+
+__END__
+
+=head1 NAME
+
+    imager - image backups
+
+=head1 SYNOPSIS
+
+    imager {command} [options] ...
+    imager -h|--help
+    imager -m|--man
+
+=head1 DESCRIPTION
+
+This tool is the general command to get the 
+functions of the imager tool.
+
+=head1 OPTIONS
+
+=over
+
+=item B<-h>|B<--help>
+
+=item B<-m>|B<--man>
+
+The standard help|manpage options.
+
+=back
+
+=head1 COMMANDS
+
+=over
+
+=item save
+
+Save the image. See C<imager save --help> for more information.
+
+=item restore
+
+Restore the image. See C<imager restore --help> for more information.
+
+=item fuse
+
+Do a fuse mount.  See C<imager fuse --help> for more information.
+
+=item check
+
+Check the saved images.  See C<imager check --help> for more information.
+
+=back
+
+
+=cut

--- a/bin/imager.check	Fri Jul 29 10:53:14 2011 +0200
+++ b/bin/imager.check	Fri Jul 29 10:58:05 2011 +0200
@@ -30,11 +30,11 @@
         "y|yes!"     => \$o{yes},
         "v|verbose!" => \$o{verbose},
         "c|check"    => \$o{check},
-        "h|help"     => sub { pod2usage(-verbose => 1, -exit 0) },
+        "h|help"     => sub { pod2usage(-verbose => 1, -exit => 0) },
         "m|man"      => sub {
             pod2usage(
                 -verbose => 2,
-                -exit 0,
+                -exit => 0,
                 -noperldoc => system(
                     "perldoc -V 1>/dev/null
 			  2>&1"