Help for this page

Select Code to Download

Select or download this

use POSIX;
close(STDIN);
my $tty=POSIX::ctermid();
open(STDIN,"$tty");