1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!@TARGET_PERL@ my $f = 'testfiles/notifyran.'.$ARGV[0].'.'; my $n = 1; while(-e $f.$n) { $n ++; } open FL,'>'.$f.$n; print FL localtime(); close FL;