Help for this page

Select Code to Download


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