#! perl -slw
use strict;

close STDIN;

readline(STDIN);

open *STDIN, '<', 'CON:' or die $!;

my $x = readline(STDIN);

print "Got: $x from reopened STDIN";

__END__
C:\test>junk84.pl
readline() on closed filehandle STDIN at C:\test\junk84.pl line 6.
fred
Got: fred
 from reopened STDIN