The following works fine for me (given that try2.pl exists):

use strict;
use warnings;
open(FILEHANDLE, "+<try2.pl") or die $!;
print <FILEHANDLE>;
print FILEHANDLE "Hai";
print FILEHANDLE "Bye";
close (FILEHANDLE) or die $!;
[download]

It prints out the contents of the file, then appends "HaiBye" to the file.

What operating system are you using ? And which version of perl ?

Does while(<FILEHANDLE>) {print} work any better than print <FILEHANDLE>; ?

Cheers,
Rob