use MIME::Lite;
my $mail=new MIME::Lite
    From=>'me@myhost.com',
    To=>'you@yourhost.com',
    Cc=>'',
    Bcc=>'',
    Subject=>'check subject line',
    Type=>'multipart/mixed';
  attach $mail
    Type=>'TEXT/HTML',
    Data=>'check whether attachment symbol coming or not';
MIME::Lite->send('smtp', "smtp.tnq.co.in", Timeout=>60);
$mail->send;
quiet MIME::Lite 1;