#!c:\perl\bin\perl.exe

print "Content-Type: text/x-hdml\n\n";

$cmd1= `ping www.apple.com`;

print <<"ending_print_tag";

<HDML VERSION="3.0" PUBLIC=TRUE MARKABLE=TRUE>

<DISPLAY NAME=pingcard>
<wrap>$cmd1
</DISPLAY>

</HDML>

ending_print_tag