open(BIG, "name_here");
open(SMALL, "other_name_here");
seek(BIG, -1024, 2);
my $junk=<BIG>;  #pitch to end of current line
while(<BIG>)
{
  print SMALL $_;
}