Help for this page

Select Code to Download


  1. or download this
      my $pos= tell(DATA);
  chomp( my $x= <DATA> );
  warn "Testing($x)";
...
  warn "Testing($x)";
__END__
some data
  2. or download this
    Testing(some data) at redata.pl line 4, <DATA> line 1.
Testing at redata.pl line 12.
Testing(some data) at redata.pl line 14, <DATA> line 1.