#!/usr/bin/perl
# Some very symetrical code.
use strict; $_="PHP sucks, perl rocks";
my $foo= pack("CCCC",74,117,115,116);
$_ = substr($_,10); my $a = "a ";
my $q = new(); $a =~ s!a(\s)!
another!g;$a=~ s($/)()g;my(
@ls,$t);for (1..10) {push
@ls,$t};my$pk="MAIN";my
$no="a"; no strict;
${"${pk}::$no"}
= "$a"; #l33t0
/ rocks/;undef
$pk , $no; $_ =
$foo.$".$MAIN::a.$`
;print;sub new{my $self
={ };$self->{result} = 0;
bless($self);return $self;}
my $dog_wag =qtfx2($q, 'wag')
;&$dog_wag("hacker");sub qtfx2{my
($self, $method)=@_;return sub{return
$self->$method(@_)};}wag($_,'Rev'); sub
wag{use
strict;
shift ;
print #
" @_" #
."!" ;}
Gyan Kapur
gyan.kapur@rhhllp.com