turn the use warnings flag on, and FIND IIS'S SCRIPT ERROR LOGS...in apache on linux, it's something like /var/logs/apache/error_log
here is the top of my script....
#!/usr/bin/perl
#Sample SMTP Script
use warnings;
use strict;
use Net::SMTP;
use CGI;
use POSIX qw(strftime);
#Setup CGI to pull the variables
my $query = CGI::new();
my $action = $query->param("action");
#my $MailFrom = $query->param("user");
my $user = $query->param("user");
my $MailFrom = "$user\@XXXX.com";
my $subject = $query->param("subject");
my $insub = $query->param("insubject");
my $iam;
my $time = strftime "%a %b %e %H:%M:%S %Y", localtime;
if ( $user eq "NULL")
{
print "Content-Type: text/html\n\n";
print "<html><HEAD>\n<TITLE>$user $action</title></head>\n";
print "<body>\n";
print "NO USER SELECTED!<br> Please go back and select a user.<br></body></html>\n";
exit(0);
}
if ( $action eq "BBIN")
{
$iam = "BBIN $insub $time";
}
if ( $action eq "BBOUT")
{
$iam = "BBOUT $subject $time";
}
my $ServerName = "10.255.31.15";
# Connect to the server
my $smtp = Net::SMTP->new($ServerName, Hello => "ms.XXXX.com") ;
die "Couldn't connect to server" unless $smtp ;
#$MailFrom = "$user\@XXXX.com" ;
my $MailTo = "alias\@XXXX.com" ;
#my $MailTo = "nweaver\@XXXX" ;
my $CC = "receptionist\@XXXX.com" ;
$smtp->mail( $MailFrom ) ;
$smtp->to( $MailTo ) ;
$smtp->cc( $CC ) ;
# Start the mail
#print "Sending Data\n";
$smtp->data() ;
# Send the header.
$smtp->datasend("To: $MailTo") ;
$smtp->datasend("From: $MailFrom\n") ;
$smtp->datasend("CC: $CC\n");
$smtp->datasend("Subject: $iam <EOM>\n") ;
$smtp->datasend("\n") ;
#
# Send the message
#$smtp->datasend("I am $iam.\n\n") ;
# Send the termination string
$smtp->dataend() ;
$smtp->quit() ;
#HTML Stuff
print "Content-Type: text/html\n\n";
print "<html><HEAD>\n<TITLE>$user $action</title></head>\n";
print "<body>\n";
#print "$host\'s $lmact";
print "$user has been reported as $action\n";
#print "\n<p>This page will go back to the main page in 3 seconds";
print "\n</body>\n";
#print "</html>\n";
print "<script language=\"javascript\">\n";
print "function redirectPage() {\n";
print " // Set the value of the href property of the location object to the address to which we want to redirect users\n";
print "document.location.href = \"/bb.html\";\n";
print " }\n";
print " // Setup our wait time\n";
print " setTimeout(\"redirectPage()\",3000);\n";
print "</script>\n";
Edit: Sanitized
Facebook
Twitter