write to local files? and why does strict bugger this online but not locally?

jerrygarciuh has asked for the wisdom of the Perl Monks concerning the following question:

I have 2 questions about this script (which now works yay!!) First, is it possible for me to write to a local file ie on my hard drive)? The script runs without error but does not write to the file. Second, despite yielding no errors in local tests, once online the script only works if I remove the strict pragma. I read strict again just now but I don't see why it runs locally with strict and online it gives Internal Error (500).
TIA
jg

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my @words = qw(baloney has a first name);
open (TEXTFILE,">>menu.txt") || die "where's the damn file? : $!";
print TEXTFILE "My baloney has a first name.";
close (TEXTFILE) || die "close damn you : $!";
print "Content-type: text/html\n\n";
print "<HTML> \n";
print "I did it all for you. \n";
[download]

Back to Seekers of Perl Wisdom