open FD, '>>/users/smisra/test4.pl' or die "open failed: $!\n";
print FD $string;
close FD or die "close failed: $!\n";