Help for this page

Select Code to Download

Select or download this

if ($0=~/^(.+)\/.*/) { 
        $dir=$1; 
...
else { 
        $dir="."; 
}