Perlでメール送信

しょーもない内容だけど、久しぶりにPerl。
Perlでメールを送るのに、前に既存ソースで見たからっていうだけの理由で、Mail::HeaderとかMail::Internetを使ってるけど、今風の、ナウな書き方ってどんなんなんだろ。

#!/usr/local/bin/perl -w

use strict;
use warnings;

use Mail::Header;
use Mail::Internet;

eval {
  my $head = new Mail::Header;
  $head->add( 'From',    'foo@hoge' );
  $head->add( 'To',      'bar@hoge' );
  $head->add( 'Subject', 'test' );

  my $mail = Mail::Internet->new( 'Header' => $head );
  $mail->body('test');
  $mail->smtpsend( Host => 'smtp.zoo' );
};
if ($@) {
  print($@);
  print($!);
}