--- fw-info.pl	2007/04/22 15:30:47	6
+++ fw-info.pl	2007/04/23 17:41:34	16
@@ -13,5 +13,5 @@
 my $ver;
 seek($fh, 32, 0) || die "can't seek to 32: $!";
 read($fh, $ver, 4);
-print dump( $ver ), dump( unpack 'CCCC', $ver ),$/;
+print join('.',unpack('CCCC', $ver)),"\t$path\n";