Main( @ARGV );
exit( 0 );
sub Main {
    my $q = CGI->new;
    print SomeKindOfPages( $q );
}
sub SomeKindOfPages {
    my( $q ) = @_;
    ...
    my( $headers, $body ) = ShippingEstimator( $q , ... );
    return $headers, $body;
}