use strict; use CGI qw/:standard/; my $debug = 0; # -|Main|---------------------------------------------------------------------- # Pre : $ARGV[0] from "script.pl # Post: # ----------------------------------------------------------------------------- print redirect( $ARGV[0]);