Select Code to Download

sub method {
    my $self=shift;
...
    # do something
    return $return
}

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}