sub Test1 { print "Content-type:text/html\r\n\r\n"; print ''; print ''; print 'EPROM - Monitoring'; print ''; print ''; print '
'; print ''; print ''; print '
'; print ''; print ''; }