Foxcub is correct. It looks like it is a scope problem. If you were to enforce warnings ( perl -w ) then you would get an error allong the lines of

Use of uninitialized value in formline at ????.pl line ??.
[download]

if you remove your line

my ($cust, $d1, $d2, $c1, $c2);
[download]

from the function, or perhaps put it before you define your format that should give you your output :-)

_______________________________________________________
Remember that amateurs built Noah's Ark. Professionals built the Titanic.