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

my $i = 1;
$i++ while -f "file_$i.dat";
open OUTFILE, "file_$i.dat";

##</code><code>##

$i++ while !sysopen( FILE, "file_$i.dat",O_RDWR|O_CREAT|O_EXCL);