Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
        rename $_, $new or warn "Cannot rename '$_' to '$new' $!";
        }, @dirs;