Yes, nice code - I would suggest using a CPAN module
to handle email - makes your code more portable.
My favorite (so far) is Mail::Sendmail -

use Mail::Sendmail;

%mail = ( To      => $recipient,
          From    => $sender,
          Subject => "stuff",
          Message => "blah",
    );
sendmail(%mail) or print STDERR "$Mail::Sendmail::error";
[download]

Happy coding,
Jeff