open IN, "hugefile.txt"
    or die "Can't open huge file: $!\n";
open OUT, ">biggerfile.txt"
    or die "Can't open bigger file: $!\n";
my $line;
while (sysread(IN, $line,  150))
{
    print OUT "$line\n";
}
close IN;
close OUT;