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

##</code><code>##

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