use Mime::Lite; 

#
# yada yada yada
#

my $data = "The following new items have been listed on eBay:\n";

$data .= "http://cgi.ebay.com/ws/eBayISAPI.dll?ViewItem&item=$_\n" for
+ @itemnumber;
  

my $msg = MIME::Lite->new(
           From     => 'me@Comcast.net',
           To       => 'me@Comcast.net',
           Subject  => "New $searchstring items found",
           Data     => $data
                         );
$msg->send('smtp', smtp.comcast.net);
[download]