#!/path/to/perl

use strict;
my $q = CGI->new();

print $q->header();
print qq(<script>history.go(-1);</script>);

exit;