Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
#__DATA__
#test
#test
  2. or download this
    readline() on unopened filehandle DATA at D:\perl\scratch\test__data__
+.pl line 3.
seek() on unopened filehandle DATA at D:\perl\scratch\test__data__.pl 
+line 7.
readline() on unopened filehandle DATA at D:\perl\scratch\test__data__
+.pl line 8.
--