if (@ARGV) {
  $nopts = 0;
} else {
  goto mailcon;
  $nopts = 1;
}