#!/usr/bin/perl

     use strict;
     use warnings;
     use CGI;[code]

     
     my $query = new CGI;
     print $query->redirect("http://localhost/cgi-bin/test2.cgi");