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