Select Code to Download

package Medical;
sub new { ... }
sub allergies { ... }
sub immunizations { ... }

use Medical;
my $medical = Medical->new();
...
$medical->$filename();
...