getter usage example

diff --git a/ZPL2pbm.pl b/ZPL2pbm.pl
index ead04d8..e54e8fd 100755 (executable)
--- a/ZPL2pbm.pl
+++ b/ZPL2pbm.pl
@@ -13,7 +13,7 @@ while(<DATA>) {
        $command->{$cmd} = $desc;
 }
 
-my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm";
+my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm\n";
 
 open(my $in, '<', $file);
 

diff --git a/pbm2ZPL.pl b/pbm2ZPL.pl
index 7223742..4b8f02c 100755 (executable)
--- a/pbm2ZPL.pl
+++ b/pbm2ZPL.pl
@@ -8,7 +8,7 @@ use Data::Dump qw(dump);
 
 my $compress = $ENV{COMPRESS} || 1;
 
-my $pnm_file = shift @ARGV || die "usage: $0 print.pnm";
+my $pnm_file = shift @ARGV || die "usage: $0 print.pnm > print.zpl\n";
 
 open(my $fh, '<', $pnm_file);
 my $p4 = <$fh>; chomp $p4;