##################################
#!/bin/perl -w
#############################
# include packages
use strict;
#############################

############################
# parameter
my $ct=1;									# curve counter
my $FileName="TestFile";
my $Name;
############################							# dummy parameter
# main programm
system(clear);	
print "$FileName\n";								# refresh the command line
while ($ct<=10){
$Name='$FileName'+'$ct';
print "$Name\n";
#open (FILE, ">","$Name.txt") or die ("Fehler beim Oeffnen der Datei: $! \n");
#print $ct;
$ct++;
}
exit (0);									# no fault exit;