use strict;

my @dir_output = readpipe( "dir /B" );
foreach ( @dir_output )
{
if ( $_ =~ /^a/ )
{
next;
}
print $_;
}