[ic] help with perl code in shipping

[daniel castro]

Hi all, I am trying to implement a special internation shipping mode, but 
its not working. below is a small part of shipping.asc, BTW I am using IC 
5.1 in a postgres SQL in Fedora Core 2.

Any help will be greatly appreciated.
Daniel Castro

SCS: SCS:The standard currier service is delivery door to door of the 
products. This service is provided for products that don't weigh more than 
44lbs. and/or cost more than 1.000.oo usd. The ETA is from 5 to 6 days.
        criteria        <<EOF
[perl]
        return 'weight' if $Tag->subtotal({noformat => 1}) < 1000.00;
        return '';
[/perl]
EOF
        min             1
        max             15
        cost            f <<EOF
[perl]
my $val = $Tag->subtotal({noformat => 1}) * 1.66;
return '25.00' if $val < 25.00;
return $val;
[/perl]
EOF
        min             16
        max             25
        cost            f <<EOF
[perl]
my $val = $Tag->subtotal({noformat => 1}) * 1.50;
return '40.00' if $val < 40.00);
return $val;
[/perl]
EOF

_________________________________________________________________
FREE pop-up blocking with the new MSN Toolbar - get it now! 
http://toolbar.msn.com/