Usage: perl truncate.pl file