#!/usr/bin/perl
use strict;
use warnings;
use File::Path;

my $path = q{a:/tmp}; # non existent drive

eval {no warnings 'all'; mkpath $path};

if ($@){
	print qq{failed\n};
}
else{
	print qq{ok\n};
}