use MIME::Lite;
my $msg = new MIME::Lite(
           From    =>'technicu@technicut.net',
           To      =>'stu96art@yahoo.com',
           Cc      =>'some@other.com, some@more.com',
           smpt    =>'64.176.60.59',
           Subject =>'A message with 2 parts...',
           Type    =>'multipart/mixed');

$msg->attach(Type     => 'TEXT',
             Data     => "NAME: $name\nCOMPANY: $company\nADDRESS: $address\nCITY: $city\nSTATE: $state\nZIP: $zip\nPHONE: $phone\nFAX: $fax\nEMAIL: $email\nCOMMENTS:  $comments\n\n");

$msg->attach(Type     =>'image/gif',
             Path     => $file);