$start_ts = sprintf("\"%s %s:%s:00\"",$fromdate,$hr,$min);
$end_ts = sprintf("\"%s %s:%s:00\"",$todate,$tohour,$tomin);

for ($i = $TTYFIRST; $i <= $TTYLAST; $i++) {
  Tty_check($i,$start_ts,$end_ts,$selectedserver);
}


sub Tty_check {

   $tty_string = sprintf( "tty%d", $_[0] );
   $tty = qx{aml_read /l trace /h $_[3] /a commproc /s $_[1]  /b $_[2] /d all | 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");

}