59 

    59 

    60 system("rmdir /S /Q $raptorbitsdir") if (-d $raptorbitsdir);

    60 system("rmdir /S /Q $raptorbitsdir") if (-d $raptorbitsdir);

    61 mkdir($raptorbitsdir);

    61 mkdir($raptorbitsdir);

    62 #print "Created dir $raptorbitsdir.\n";

    62 #print "Created dir $raptorbitsdir.\n";

    63 

    63 

    64 # create empty summary file anyway

    66 # create empty summary file anyway

    65 open(SUMMARY, ">$raptorbitsdir/summary.csv");

    67 open(SUMMARY, ">$raptorbitsdir/summary.csv");

    66 close(SUMMARY);

    68 close(SUMMARY);

    67 

    69 

    68 my $saxhandler = RaptorSAXHandler->new();

    70 my $saxhandler = RaptorSAXHandler->new();