Help for this page

Select Code to Download


  1. or download this
    sub p () {
    use constant P=>' )';
...

$, = p;
print q; #Just Another Perl Hacktress ;^P
  2. or download this
    sub p () {
    use constant P=>' )';
...
}
$, = p;
print q; #Just Another Perl Hacktress ;^P
  3. or download this
    use constant P => ' )';
print q; #Just Another Perl Hacktress ;^P