#!/usr/bin/pl

package MyUa;

use LWP::UserAgent; 
@ISA = "LWP::UserAgent";

sub redirect_ok { 
# here depending on what you've decided
# you return true to follow the redirect
# or false to not follow
# (we set up the return value depending on
#  other (previously set up) variable to achieve our goal)
#
# You can also set some variables here to to modify the way 
# you'll retrive the new pages elsewhere in your prog/in the LWP
#(argh, dirty !)
# to change POST to GET by example...
}
1;