Help for this page

Select Code to Download

Select or download this

use File::Basename;

...
    $d = dirname($d)
} 
print join "\n", reverse(@b)