use MIME::Lite;
$msg = MIME::Lite->new(
  From     => 'testing@mailaddress',
  To       => 'testing1@mailaddress',
  Subject  => 'Testing',
  Type    => 'multipart/mixed'

);
$msg->attach(
        Type     => 'TEXT',
       Data     => "Here's the jpeg  file you wanted"
    );

$msg->attach(
        Type     => 'image/jpg',
        Path     => '1.jpg',
        Filename => 'logo.jpg',
        Disposition => 'attachment'
    );

$msg->send('smtp','smtp ip address');