Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $i = 1;
$i++ while -f "file_$i.dat";
open OUTFILE, "file_$i.dat";

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