Select Code to Download

require 'my_general_subs.pl';

my $var1 = shift;
my ( $var2 ) = mgs::get_data( $var1 );

package mgs;

sub get_data {
    my ( 
...

    return ( $answer );
}