$dir = ".";
opendir(DIR,$dir) || die "Unable to open $urldir: $!";