# perl -e ' open $h,">", \$s or die; print qq(fileno: [).fileno ($h).qq(]\n);' fileno: [-1]