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