Select Code to Download

for ( glob "*.abc" ) 
{
...
   s/\.abc$/.edf/; 
   rename $old, $_ or warn "can't rename '$old' to '$_'";
}

for( glob "*.abc" )
{
...
    
    rename $_, $new or warn "can't rename '$_' to '$new'\n " if $ok;
}