utilitarian@busybox:~/tmp/test$ perl -e '
$time=localtime;
($day,$month,$date,$time,$year)=split(/ /,$time);
$stamp=$year."_".$month."_".$date;
$dir="result_".$stamp;
mkdir "results" if ( ! -d "results");
$path="results/$dir";
mkdir "$path" if ( ! -d "$path");
open (F,">>", "$path/results.log");
print F "This file exists\n";
close(F);'
utilitarian@busybox:~/tmp/test$ ls results/
result_2009_Jun_17
utilitarian@busybox:~/tmp/test$  ls results/result_2009_Jun_17/
results.log
utilitarian@busybox:~/tmp/test$  cat  results/result_2009_Jun_17/results.log
This file exists