#!/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";