Change:

system("cp -fRp $dir/controlpanel") or die "Problems copying dir : $!\
+n";
[download]

To:

system("cp -fRp $dir/controlpanel") == 0 or die "Problems copying dir 
+: $!\n";
[download]

system returns the exit status of the program being run, and the programs conventionally return 0 (zero) on success.