Select Code to Download

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
...
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -d _;
}