#!/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);

##</code><code>##

#!/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);