#! /usr/bin/perl use CGI; use DBI; use lib '../../include'; use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); print $cgi->header(-type=>'text/html; charset=utf-8', -refresh=>'10; ' . CGI::url()); print <<"EOF";