use Tie::File;

my $file = 'filename';

my @tiedfile;

my $new_content = "foo";  ## Whatever you want to prepend to the file

tie(@tiedfile, 'Tie::File', $file);

unshift(@tiedfile, $new_content);

untie(@tiedfile);