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";
while ()
{
print OUT;
}
print OUT <<"EOF";
Title
Okay this prints out.
EOF
close OUT || die "Can't close filehandle: $!\n";
close FIL || die "no cant close: $!\n";