Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    close OUT;
  }
}

my @mimefiles = <*.mime>;
foreach my $mimefile (@mimefiles) {
foo....
}