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

could be written as:

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

update: I took too long to type... See the message before this :)