Select Code to Download

class Foo extends Bar {
...
    $this->{CACHE}{$url} = $html ;
  }
}

package main ;

  my $foo = new Foo(123) ;
  $foo->get_pages('http://www.perlmonks.com/', ['/index.pl','/foo'] , 
+{proxy => 'localhost:8080'}) ;

sub test {
  my $this = shift ;
  my ( $arg1 , @list ) = @_ ;
  $this->other(...);
}

sub test ($arg1 , @list) {
  $this->other(...);
}

sub testref ($arg1 , \@list , \%hash) {
  $this->other(...);
...

## use:
$object->testref("foo" , [1,2,3] , {k1 => 1})

sub testref {
  my $arg1 = $_[0] ;
...
  my %hash = %{$_[2]} ;
  $this->other(...);
}

class Foo extends Bar, Baz {...}