Select Code to Download

#!/usr/bin/perl

...
    case 2: &subroutine4;
}

#!/usr/bin/perl

...
sub subroutine3 { print $global_variable2; }
sub subroutine4 { print $global_variable3; }