#!/usr/bin/perl

use warnings;
use CGI::Session '-ip_match';
use CGI;

my $session = CGI::Session->load();

$session->delete();
$session->flush();

my $url = "https://xxxx.xxx";
print "Location: $url \n\n";