Select Code to Download

sub foo {
   my ($self,$ref) = @_;
...
      # do case number 2
   }
}

sub foo {
   my ($self,$ref) = @_;
...
   }

}