open my $fh, '>','delete.this.later' or die ("Unable to open temp file : $!");
...
my $result = timethese ( -5, {
   test => sub { print $fh @A },
...