my $resultfile="test-result-".`date +%d_%b_%H-%M`;

$dir="results";
`mkdir ./results/$resultfile`;
$path="./results/$resultfile";
;
open(F, ">> $path/result.log") || die "cannot create resultfile:$!\n";