#!/usr/bin/perl -w
#also see IO-Sendfile 

use strict;
use Fcntl ':seek';

#krahn 
#> I have a text file that i want to insert two lines to the top of. 
#> how do i do this? 

my $file = 'head-1testfile';

open FILE, "+< $file" or die "Cannot open $file: $!";
my @lines = <FILE>;

seek FILE, 0, SEEK_SET or die "Cannot seek on $file: $!";
print FILE <<TEXT, @lines;
This is the new line one.
This is the new line two.
TEXT
[download]