Help for this page

Select Code to Download


  1. or download this
    $ cat My.pm
package My; our $VERSION = "1";
...
$ perl -I0 -I. -e 'use My 1; warn $My::VERSION;'
2 loaded at 0/My.pm line 2.
2 at -e line 1.
  2. or download this
    $ perl -I. -I0 -e 'eval q{use My 2}; warn $My::VERSION;'
1 loaded at My.pm line 2.
1 at -e line 1.
  3. or download this
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,