Re^2: Sequentially numbering output files rather than overwriting an existing file

For more visually pleasing output:

if (-f "$name.txt") {
    $n=1;
    my $fn = sprintf "%s-%05d\.txt", $name, $n;
    $n++ while -f $fn;
}
[download]

Comment on Re^2: Sequentially numbering output files rather than overwriting an existing file Download Code