use CGI qw/:standard/;
my $co = new CGI;

if ($x eq "9000") {
    print $co->redirect(-target=>'_top', -location=>'/intranet/subdir/index.html');
}