Public Scratchpad | Download, Select Code To D/L |
#!/usr/bin/perl use strict; package MyModule; =pod =head1 MyModule =head2 My data is: =cut my $testread = join '', <DATA>; warn $testread; __DATA__ =pod one == 1 two == 2 =cut
Public Scratchpad | Download, Select Code To D/L |
#!/usr/bin/perl use strict; package MyModule; =pod =head1 MyModule =head2 My data is: =cut my $testread = join '', <DATA>; warn $testread; __DATA__ =pod one == 1 two == 2 =cut