use strict;
use warnings;

my ( $target, $cust, $cotime ) = @ARGV;

my %lookup = (
   q{-SMC}   => q{SMC},
   q{-FET}   => q{FET},
   q{-China} => q{China},
   q{-SBM}   => q{SBM},
   );

if ( exists $lookup{ $cust } )
{
    $cust = $lookup{ $cust };
    print qq{Customer set to $cust\n};
}
else
{
    warn qq{Customer $cust not recognized\n};
}