Select Code to Download

use warnings;
use strict;
...
print $str;#the content is there before close
close FILE;
print $str; #the content is still there after close

use Net::Telnet;

...
$t->close();
print "\$str content:\n";
print $str;