Select Code to Download

use IO::String;
use strict;

...

select(STDOUT);
print $$temp;

perl -w test.pl
write() on unopened filehandle TEST at test.pl line 14.