Select Code to Download

$msg = MIME::Lite->new(
     To      =>'you@yourhost.com',
...
    Path => '/path/to/somefile.gif',
);
$msg->send();

$smtp->datasend(
  join "\n",
...
    split "\n",
    $msg->as_string
);