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