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