Select Code to Download

Use of uninitialized value in formline at ????.pl line ??.

my ($cust, $d1, $d2, $c1, $c2);