#!/usr/bin/perl

my $base = ".";
&check ($base."/".$ARGV[0]);


sub check {

	my $dir = shift;
	
	opendir(DIR, "$dir") || die "Cannot open dir!";

	my @contents = readdir DIR;

	closedir (DIR);

	foreach my $one (@contents) {

		unless ($one=~/^\./) {

			if (-d "$dir/$one") {

				my $dirin = "$dir/$one";
				print STDERR $dirin, "\n";
				&check($dirin);
			}

			else { system ("dos2unix $dir/$one");}
		}

	}

}