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

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