open my $FILE, '<:raw', 'i:/lenova_2008-03-28.zip' or die "Cannot open 'i:/lenova_2008-03-28.zip' $!";
open my $OUT, '>', 'i:/fullhexdump.txt' or die "Cannot open 'i:/fullhexdump.txt' $!";

$/ = \2048;
my $count;
while ( <$FILE> ) {
	$count += length;
	print $OUT unpack 'H*', $_;
}
close $FILE;
close $OUT;

print "\n\n$count\n\n";