#!/path/to/perl

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

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

exit;
[download]

If I recall correctly, history.back() is not cross-browser friendly.