my $outfile = "new.txt";

open (OUTFILE, ">> $outfile") || die "Can't open $outfile\n";

print OUTFILE "\n";
print OUTFILE "Hello $FIRST_NAME.\n";
print OUTFILE "\n";
print OUTFILE "I'm writing on behalf of $COMPANY...";