Select Code to Download

my $buf;
open(my $fh, ">", \$buf);
...
close($fh);
# now use $buf:
$widget->configure(-text => $buf);