Help for this page

Select Code to Download


  1. or download this
    ...
if ($ARGV[1] eq '-SMC') {$cust eq "SMC";}
...
  2. or download this
    if ($ARGV[1] eq '-SMC') {$cust = "SMC";}
  3. or download this
    #!/usr/local/bin/perl -w
use strict;
my($target, $cust, $cotime) = @ARGV;

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