Help for this page

Select Code to Download


  1. or download this
    use IO::Handle;
while(my $line= <DATA>) {
...
__DATA__
A line
0