[ic] SpecialSub shipping_callout question

[DB]

I'm trying to add a fixed amount to the shipping calculated at checkout 
if the shipping address is to certain states. Is there a way to access 
the value of the 'state' in the SpecialSub code such as this example:

Sub custom_shipping <<EOS
sub {
     my ($final, $mode, $opt, $o) = @_;
     $final *= .90 if $Scratch->{dealer} and $mode =~ /UPS/i;
     return $final;
}
EOS
SpecialSub shipping_callout custom_shipping

Thanks!

DB