Select Code to Download

my $inc; 
$inc++ until ( not -e "$filename~$inc" );

sub good_filename {
    my $filename = shift;
...
    $inc++ until ( not -e "$filename~$inc" );
    return "$filename~$inc";
}