Select Code to Download

psuedocode:

...
when reach $file1 send to subroutine;
when reach $file2 send to subroutine;
exit script;

my $file1 = 'extracted/file1';
sub infile($file1);
my $file2 = 'extracted/file2';
sub infile = 'extracted/file2';