opendir (DIR, $srcname) || die "can't open dir $srcname: $! \n";

while (defined($file = readdir(DIR)))
     {next if $file =~ /^\.\.?$/;    
      .
      .
      .
     }