in reply to Small email script not working

This line is your problem. You need to interpolate the \n 
print MAIL 'From: no@reply.com\n';

[download]
change to 
print MAIL "From: no\@reply.com\n";

[download]

In Section Seekers of Perl Wisdom