Select Code to Download

#!/usr/bin/perl

...

my $person = Person->new(name => "Bob");
print "\n", $person->show_person(), "\n";