open RES, 'bas.txt';
my $msg; do { local $/; $msg = <RES> };
close RES;

##</code><code>##

 my %mail = ( To      => 'toemailhere',
                     From    => 'fromemailhere',
                     Subject => "Output",
                     Message => $msg
                       );