Help for this page

Select Code to Download

Select or download this

perl -MO=Deparse -ne ' map { print $_ , "\n" if ( -d $_ )  ; } @ARGV  
+'
LINE: while (defined($_ = <ARGV>)) {
    map {print $_, "\n" if -d $_;} @ARGV;
}
-e syntax OK