> perl -le 'open AA, ">/tmp/stderrtest"; close(STDERR); warn "Hello"; close AA;' ; cat /tmp/stderrtest
>