$dir1 = $ARGV[0];
$dir2 = $ARGV[1];
$testfile = $ARGV[2];

opendir DIR1, $dir1 or die "Can't open directory $dir1: $!\n";
opendir DIR2, $dir2 or die "Can't open directory $dir2: $!\n";

@onedir = readdir(DIR1);

@twodir = readdir(DIR2);

closedir DIR1;
closedir DIR2;

for($i = 0; $i < @onedir; $i++)
{

    next if $onedir[$i]=~/^\./;
    
    $onefile = "$dir1$onedir[$i]";
    $twofile = "$dir2$twodir[$i]";

    Calc($onefile, $twofile, $testfile);
        
}