Select Code to Download

#!/usr/bin/perl -w
use IO::Socket;
...
if ($mailstat[3] eq "0") {
    print "You have no messages.\n";
  }

for ($count = $mailstat[3]; $count > 0; $count--) {
  print $remote "RETR $count" . $BLANK;
  #then do something with the data here. ????
}