Select Code to Download

#!/usr/bin/perl -w

...
    print $diskpathfile, “\n”;
}
find (\&Recursive, $source);

#!/usr/bin/perl -w

...
    print $diskpathfile;
}
find (\&Recursive(“hello”), $source);