in reply to how to deal with incorrect command line argument

maybe something sticks 


#!/usr/bin/perl --
use strict; use warnings;
use Path::Tiny qw/ path /;
Main( @ARGV );
exit( 1 );
sub Main {
    while( @_ ){
        my( $oldname, $newname ) = splice @_, 0, 2;
        eval {
            path( $oldname )->move( $newname );
            1;
        } or warn $@;
    }
}
Re: Multiple File Rename

In Section Seekers of Perl Wisdom