Select Code to Download

use strict;
use warnings;
...
for ( path('/nfs/fm/stod/stod1031/w.eakanoje.101/power/')->children( q
+r/^mdp/ ) ) {
    print $_ . $/;
}