You might need to look at
File::Path for a more flexible
way to make dirs. Also, look at
localtime and
sprintf
for making that label without shelling out.
$label = sprintf "%02d%02d", (localtime)[4,3]
works except that months are returned as 00-11 rather than 01-12.
--
$you = new YOU;
honk() if $you->love(perl)