package LWP::UserAgent::ForceRedirects;

use LWP::UserAgent;

use base qw(LWP::UserAgent);

sub new {
  my ($class, $base) = @_;
  
  my $parser = new LWP::UserAgent;
  $parser->{base} = $base;

  bless $parser, $class;
}

sub redirect_ok {
  my ($self, $request) = @_;
  print "Redirecting to: " . $request->url() . "...\n";
  return 1;
}

1;

##</code><code>##

C:\TEMP>perl -w bcbs.pl
Redirecting to: https://XXX.XXX.XXX.XXX/?&STCO=1O3F9cqwYA2QAAB6EH0k&STCOEND...
Redirecting to: https://XXX.XXX.XXX.XXX/?&STCO=2O3F9cqwYA2QAAB6EH0k&STCOEND...