Select Code to Download

my ($x)

my $x;
my $y;
my $z;

my ( $x , $y , $z );

...
     $y ,
     $z 
);

sub function{
  my $self = @_;
}

sub function{
  my ($self) = @_;
}

sub function{
  my ($self , $arg1 , $arg2 ) = @_;
}