package lib::CGI;

use strict;
use warnings;

require CGI;
use vars qw(@ISA);

@ISA = qw( CGI );

sub redirect
{
   my ($self, $uri) = @_;

   # print "Location: $uri\n\n"; # works but is nor nice
   # CGI::redirect($self, $uri); # does not work
   # $self->redirect($uri); # endless loop
   # i need help

   exit(0);
}