in reply to Script is not producing output.

creating your private logfile makes debugging much easier especially, if you don't have access to the 'real' logfiles
use CGI::Carp qw(fatalsToBrowser); BEGIN { print CGI::header(); open (STDERR, '>>mylog.log'); }
slay