i seems that the the error is at somewhere around line 127
print "TO: $1 FROM: \"$from_name\" $from_email \n"
if ($OUTPUT);
$1 =~ m/^([\w\d.-]+)\@/;
my $username = lc($1);
Thanks
print "TO: $1 FROM: \"$from_name\" $from_email \n"
if ($OUTPUT);
$1 =~ m/^([\w\d.-]+)\@/;
my $username = lc($1);
Thanks