use LWP::Simple;
use Mail::Mailer;

open(RES,"type bas.txt |");
while(<RES>)
{
print $_;
}


use Mail::Sendmail;
        my %mail = ( To      => 'toemailhere',
                     From    => 'fromemailhere',
                     Subject => "Output",
                     Message => '$_',
                       );
        $mail{smtp} = '111.222.222.333';

        sendmail(%mail) || die "\nProblem! $Mail::Sendmail::error\n";
close(RES);