Help for this page

Select Code to Download

Select or download this

$ cat foo.pl 
#!/usr/bin/perl -w
...

print <IN>;
close IN;

Select or download this

$ ./foo.pl 
readline() on closed filehandle IN at ./foo.pl line 15.