Select Code to Download

...
if ($ARGV[1] eq '-SMC') {$cust eq "SMC";}
...

if ($ARGV[1] eq '-SMC') {$cust = "SMC";}

#!/usr/local/bin/perl -w
use strict;
my($target, $cust, $cotime) = @ARGV;

$cust =~ s/^-//; # strip leading dash