#!/usr/bin/perl
$dirname = ".";

opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
        next if $file =~ /^\.\.?$/;
        system("dos2unix $file");
}
closedir(DIR);