Select Code to Download

sub getquote
{my($sym,$qdate)=@_; # Symbol is 'googl' in lowercase and date is '201
+40822'.
...

return; # getquote
}

$quote->require_labels(qw/success errormsg price date exchange name/);

$quote->require_labels(qw/price date exchange name/);