• You could run the sub "backuplogs" as a thread, and do all 4 in parallel.
• Just a style pointer: adding a leading zero in the datestamp sub is easier, and clearer if you use sprintf:

my ($day,$month) = (5,6);
for ($day,$month){
  $_ = sprintf('%2.2d',$_); # Adds Leading zero if necessary
}
[download]