c:\test>dir junk.dat
18/11/2011  19:23               893 junk.dat

c:\test>perl -E"$f=pop; $s=-s($f); truncate $f, $s-40 or die $!" junk.dat

c:\test>dir junk.dat
18/11/2011  19:24               853 junk.dat