Help for this page
my $outfile = "a"; $outfile++ while -e $outfile; open my $fh, ">", $outfile or die "$outfile: $!";
my $outfile = "a"; my $fh; $outfile++ until sysopen $fh, $outfile, O_WRONLY|O_CREAT|O_EXCL;