Help for this page

Select Code to Download

Select or download this

package My::IO;

...
print "filename=", $io->filename, "\n";
$io->open;
print $io->getlines;

Select or download this

#!/usr/bin/perl -c

...
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>