#!/usr/bin/perl

$CP = '/bin/cp'; 

opendir(DIR, ".");
@FILES_TMP = grep(/^DataFile.dat_/, readdir(DIR));
@FILES = sort(@FILES_TMP);
$i = 1; 

foreach $FILE (@FILES){

    print "$CP $FILE DataFile.dat  \n" ;
    system ("$CP $FILE DataFile.dat ") ;

#    print "./obradbt/obradbt \n" ;
#    system ("./obradbt/obradbt ") ;

    print "./obratmos/obratmos \n" ;
    system ("./obratmos/obratmos ") ;

}


