Help for this page

Select Code to Download

Select or download this

sub name {
    my $self = shift;
    return $self->{name};
}

Select or download this

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/