#### #!/usr/bin/perl $dest = "http://yahoo.com"; print "Status: 302 Found\n" . "Location: $dest\n\n";