Select Code to Download

    33   use File::Path qw(make_path remove_tree);
         [...]
    387  $result = eval { remove_tree "/path/to/tree"; };
         [...]

    cannot remove directory for /path/to/tree Directory not
    empty at /path/to/script line 387.

    387  $result = system( "rm -rf /path/to/tree" );