my $book = MyPackage->new( # stuff );
print CGI::redirect(-uri=>"login.cgi?msg=$book->{error_msg}")
   unless $book->{login_successful};