tilly I am using File::Temp, that's where tmpnam comes from (with a fallback to POSIX).

I should point out that the code in the eval will be unknown, not wirtten by me no idea what's in it. Also, I have already dupped STDERR to STDOUT.

I would prefer to use tmpfile; even if I can't fallback then; but since I'm trying to *replace* STDOUT (for those who explicitly print to it, which as you pointed out select will do nothing about). But I as unable to dup the filehandle to STDOUT. I tried doing a

my $TRAP = tmpfile();
$no = fileno($TRAP);
[download]

on it and opening as open(STDOUT, ">&$fileno"); as well as open(STDOUT, ">&=$fileno"); Neither of which worked so I figured I had to roll my own.

-- 
perl -p -e "s/(?:\w);(<A HREF="/index.pl?node=st&lastnode_id=2437">st<
+/A>)/'\$1/mg"
[download]