use CGI qw(:standard); sub goAway{ my $message=shift; print header; print "Sorry dude, hit back button"; exit(0); }