use IO::Dir;

my $dh = IO::Dir->new('.');
while (defined(my $filename = $dh->read))
{
    next unless $filename =~ /\.seq$/;
    print "$filename\n";
}