sub getExpNumber {
        my $filePath = shift;
        my $n = 0;
 
        open (INPUT, $filePath) or
            die "Can't open $filePath: $!\n";
        while (<DATA>) {
            if (/^Experiment Name/) {
                last;
            } elsif (/^Algorithm/) {
                $n++;
            }
        }
        close(INPUT) or
            die "Can't close $filePath.$!\n";

        print "There are $n experiments in $filePath\n";
        return $n; 
    }