opendir (FOO, $somedir) || die "Couldn't read $somedir - $!\n";
for my $fileFound (grep /.seq$/, readdir FOO) {
   print $fileFound, "\n";
}
closedir (FOO);
[download]