Select Code to Download

if ($#ARGV == -1) {
  goto mailcon;
...
} else {
  $nopts = 0;
}

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

#!/usr/bin/perl -w

...
print $retrieved_messages;

$pop->quit();