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