open STDERRIN,"<&STDERR" or die "Could not dupe STDERR for input: $!\n"; my $line = ;