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.