use File::Path qw( mkpath );
mkpath( "/usr/local/foo/bar" ); # die()s on error