my $TRAP = tmpfile();
$no = fileno($TRAP);