my $phoneNumber = "867-5309";
my $fileName = "jenny.txt";
open FH, ">$fileName" or die "can't open $fileName: $!\n";
print FH <<EOF
Jenny Jenny who can I turn to
You give me something I can hold on to
I know you'll think I'm like the others before
Who saw your name and number on the wall
EOF;
close FH;
system("fax send $phoneNumber $fileName") and die "fax error: $?\n";