--- fw-info.pl	2007/04/22 14:42:56	5
+++ fw-info.pl	2007/04/22 15:30:47	6
@@ -7,11 +7,11 @@
 use strict;
 use Data::Dump qw/dump/;
 
-my $path = shift @ARGV || die "Usage: $0 firmware.bin\n";
+my $path = shift @ARGV || '/srv/tftp/BANT-R'; # die "Usage: $0 firmware.bin\n";
 
 open(my $fh, $path) || die "Can't open $path: $!";
 my $ver;
 seek($fh, 32, 0) || die "can't seek to 32: $!";
-read($fh, $ver, 5);
-print dump( $ver ), dump( unpack 'CCCCC', $ver ),$/;
+read($fh, $ver, 4);
+print dump( $ver ), dump( unpack 'CCCC', $ver ),$/;