Select Code to Download

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

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

if($#ARGV != 1)

if(@ARGV != 2)

chomp(@ARGV);

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

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

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