Select Code to Download

my @ARGV ="C:/Main/work"; 
die "Need directories\n" unless @ARGV;

my $default_dir = "C:/Main/work";
if (@ARGV == 1) 
...
};
# $default_dir remains in effect if there was not 
# exactly one command line argument