use strict;
my $path = "/web/webpage.html";
my $myfile = "/perl/bin/bas.txt";
open FIL, "$myfile" || die "cant open: $!\n";
open OUT, ">$path" || die "Can't open $path for writing: $!\n";
print OUT <<"EOF";
Title
Okay this prints out.
$myfile
EOF
close OUT || die "Can't close filehandle: $!\n";
close FIL || die "no cant close: $!\n";
####
Okay this prints out.
/perl/bin/bas.txt
####
Okay this prints out.
wordOne
wordTwo
wordThree