sub send_with_attach {
    my $msg = new MIME::Lite

    From        =>'',
    To          =>'',
    Subject     =>'Website File download',
    Type        =>'multipart/mixed';

    attach $msg
    Type     =>'TEXT',
    Data     =>'Downloaded files from website';

    attach $msg
      Type     =>'TEXT',
      Path     =>'../conf/WWWCHI.TXT',
      Encoding =>'8bit',
      Filename =>'WWWCHI.TXT';

    attach $msg
      Type     =>'TEXT',
      Path     =>'../conf/WWWCUS.TXT',
      Encoding =>'8bit',
      Filename =>'WWWCUS.TXT';

    $msg->send;
}