/nfs/export/netflow/intermediate/
/nfs/export/netflow/intermediate/200101-200102
/nfs/export/netflow/intermediate/200103-200104
/nfs/export/netflow/intermediate/questionable-200101-200102
/nfs/export/netflow/intermediate/questionable-200103-200104
/nfs/export/netflow/intermediate/current@
/nfs/export/netflow/intermediate/previous@

##</code><code>##

/nfs/export/netflow/intermediate/200101-200102
/nfs/export/netflow/intermediate/200103-200104

##</code><code>##

/nfs/export/netflow/intermediate/questionable-200101-200102
/nfs/export/netflow/intermediate/questionable-200103-200104

##</code><code>##

#!/usr/local/bin/perl -w
use strict;
use File::Find;

my $intdir = "/nfs/export/netflow/intermediate";

find(\&get_good_int, $intdir);

sub get_good_int {
    chomp;
    next if ( $_ =~ /^unknown/);
    my @list = split;
    foreach my $file (@list) {
         print "My filename is: $file\n";
    }
}