Help for this page

Select Code to Download


  1. or download this
    use strict;

...
  no strict 'refs';
  *{$name} = $ref;
}
  2. or download this
    package Bling;
use strict qw(vars subs);
...
    $$ref;
}
1;
  3. or download this
    #!/usr/bin/perl -l
# blingtest.pl
...
  print '$y is ', $y;
}
print '$$ is ', $$;
  4. or download this
    $"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc