BEGIN {
        use Exporter();
        @ISA=qw(Exporter);
        @EXPORT=qw(&print_hidden_param_fields
           $host_name $db_name $userid $passwd $table $pkey);
}
use vars qw($host_name $db_name $userid $passwd $table $pkey);