Select Code to Download

sub some_function
{
   my ($first, $second) = @_;
...

   ...
}

SomeClass->some_method( $first, $second );

$some_object->some_method( $first, $second );

package SomeClass;

sub new
...
...

my $some_object = SomeClass->new();