Select Code to Download

...
            $people = 1 if ($filename eq 'people.pdf');
...
    print "animal not found\n"   unless defined $animal;
    print "MSI file not found\n" unless defined $msi;
...

my %filenames = (
                 people.pdf => 'Person',
...
        print "$_ not found\n";
    }
...