#!/usr/bin/perl
  `intranet/develop/Susp/mifuture.cgi idnumber=218`;
  `at now + 2 minute <<EOF`;
  `/....../mifuture.cgi idnumber=220`;
  `EOF`  ;
  $atq = `atq`;
  print qq( ATQ: $atq<BR>);