Help for this page

Select Code to Download


  1. or download this
    lanx@nc10-ubuntu:~$ cat >/tmp/tst.pl
exit; ''=~('(?{B'.'EGIN{print "owned\n"}})')
...
owned
lanx@nc10-ubuntu:~$ perl -c /tmp/tst.pl
/tmp/tst.pl syntax OK
  2. or download this
    lanx@nc10-ubuntu:/tmp$ cat >tst.pl
exit; ''=~('(?{B'.'EGIN{print "owned"}})')
...
lanx@nc10-ubuntu:/tmp$ perl -c tst.pl
tst.pl syntax OK
ownedlanx@nc10-ubuntu:/tmp$