#!/usr/local/bin/perl -w
# use strict;
# use warnings;

##</code><code>##

#!/usr/local/bin/perl
use strict;
use warnings;

##</code><code>##

if($#ARGV != 1)

##</code><code>##

if(@ARGV != 2)

##</code><code>##

chomp(@ARGV);

##</code><code>##

$dirname =~ s/\/$//g;
$output  =~ s/\/$//g;

##</code><code>##

mkdir $output if (-d $output ==0);

##</code><code>##

mkdir $output or die "mkdir $output: $!" unless -d $output;