Select Code to Download

mkdir("c:\\automation")
   or die("Unable to create automation directory: $!\n");

use File::Path qw( mkpath );

...
if ($@) {
   die("Unable to create automation directory: $@\n");
}