Others have already commented on why it's wrong, but I have some advice that should help make warnings and errors clearer: don't bunch up the code like that. Try writing it like this:
#!/usr/local/bin/perl -w
use strict;
my($target, $cust, $cotime) = @ARGV;
if ($ARGV[1] eq '-SMC') {
$cust = "SMC";
}
elsif ($ARGV[1] eq '-FET') {
$cust = 'FET';
}
elsif ($ARGV[1] eq '-China') {
$cust = 'China';
}
elsif ($ARGV[1] eq '-SBM') {
$cust = 'SBM';
}
In this case, the warnings can only be about a single statement, since only one statement ever appears on a given line. It's also a bit more appealing to look at (in my opinion), which is a bonus.
