sub mailme {

    my $message = shift;
    my $sub = shift;

    print "Message = $message\n";
    print "Sub = $sub\n";
}

mailme("this is a message", "this is a subject");

#-OUTPUT-
#Message = this is a message
#Sub = this is a subject
#