windows me, perl 5.6
done primarily to see what glob does This probably means that using this code under unix will set the box on fire or something. I dunno.

@list=sort glob ("*.txt");
($next)= $list[-1]=~/(\d+)/;
++$next;
print "opening $next.txt";
open (FH, ">>$next.txt") or die "no open for you! $!"; #hi, vs!
print FH  "bueno";
close FH;
[download]