Select Code to Download

use strict;
use File::Copy qw ( move );
...
    next unless -f $filename;
    move ($filename, $dirname . "/" . $iterator++) or warn "could not 
+rename file";
}