Select Code to Download

sub function1 {
    my $varr1   = shift;
    my $varr2   = shift;
}

 sub fun1{
  my($varr1,$varr2)=@_;
}