require 'my_general_subs.pl';

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

##</code><code>##

package mgs;

##</code><code>##

sub get_data {
    my ( 
         $name,    # optional comment explaining @name
         $grade,   # optional comment for optional $grade
             ) = @_;

    my $answer;

# Do stuff with $name, $grade, concoct some kind of $answer
# ...

    return ( $answer );
}