Select Code to Download

 ...
     if ($force == 1)
...
        if ($interactive == 1)
        {
        ...

foreach $old ( grep { -f $_ } @filez )
{
...
    } 
    rename $old, $new if ( $force );
}