Select Code to Download

#!/usr/bin/perl -w

package Message;
...

my $name2 = Message->name( $message_obj );
print "\nMy name is $name2\n";