Select Code to Download

  my ($meth,@parts)=/.../;
  exists($dispatch{$meth}) and $disptach{$meth}->(@parts);

  sub blah {
    $foo->SUPER::blah(@_);
    ...
  }

use warnings::register;

sub foo {
  my $array_ref=shift;
...
      and die "Can't use anything but an array";
  ...
}