#!/usr/bin/perl -w
use strict; use warnings; use 5.010;

use Fcntl qw/ O_CREAT O_EXCL O_WRONLY /;

my $fh = open_next( "Results", ".txt" );
print $fh "Hello!\n";


sub open_next {
    my ($prefix, $suffix) = @_;
    my $number = 0;
    my $FH;
    until (sysopen($FH, ($prefix . ($number || "") .$suffix), O_WRONLY|O_EXCL|O_CREAT)) {
        $number++;
    }
    return $FH;
}