Mkdir in perl

From Augix' Wiki

$out_dir = $ARGV[0];
unless (-d $out_dir) {
	mkdir $out_dir or die $!;
}