#!/usr/bin/perl -w use strict; use CGI::Carp qw(fatalsToBrowser); use Edit; my $jump_to = $ENV{QUERY_STRING} || $ENV{HTTP_REFERER} || "/index.html"; Edit::fill_in_file("editme.html", HASH => [{ jump_to => $jump_to }]);