#!/usr/bin/perl

my $file=shift;
my $bytes=shift;

die "Usage: $0 <file> <bytes>\n" unless (-f $file) and ($bytes < (-s $file) );
#print "file: $file\tb $bytes\n";exit;

open (IN,">$file") or die "Can't open $file $!\n";
truncate(IN,$bytes) or die "shit: $!\n";

close $arg;