or download this
$tty = qx{aml_read /l trace /h $_[3] /s $_[1] /b $_[2] /d all /appl c
+ommproc | egrep -c -e $tty_string};
printf("<TR ALIGN=LEFT VALIGN=TOP>\n");
printf("<TD>%s</TD>\n",$tty_string);
chomp($tty);
printf("<TD>%d</TD>\n",$tty);
printf("</TR>\n");