Help for this page

Select Code to Download

Select or download this

if ( $dir =~ /[^-\w]/ ) {
     print "\t$dir is not clean.\n";
} else {
     print "\t$dir is clean.\n";
}#close if