use POSIX;
use strict;

my $TRAP=POSIX::tmpnam();
print "TMPFILE is $TRAP\n";

open(TMPFILE, "+> $TRAP") or die $!;
select TMPFILE;
eval { print 'Waka Waka' };
seek(TMPFILE,0,0);
my $input=<INFILE>;
close(INFILE>;
select STDOUT;

print $input;