#!/usr/bin/perl print "Content-type: text/html\n\n"; my $output = "<html><head><title>Helthcheck</title></head>\n"; $output .= "<html><div>"; $output .= $ENV{HTTP_HOST}; $output .= ": "; $output .= `uptime`; $output .= "</div></html>\n"; print $output; #