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

##</code><code>##

open(RES,"bas.txt");
@text = <RES>;
$all_text = join(@text);
print $all_text;
...
    Message = $all_text;