#! /usr/local/bin/perl require "support.pl"; %form = getFormData(); ShowFile("form", "%key%" => $form{key}, "%type%" => $form{type}, "%continue%" => $form{continue}, ); 1;