Hmmm. My guess then would be that in the line where you do your $card->label(), $card does not have what you expect. Care to print "card=$card\n" just before the call to ->label()?

Regards.