#!/usr/bin/perl


use Mail::POP3Client;

if ($ARG){
   $account = "rcastill\/voffice.icix.net";
   $pop3 = "voffice\.icix\.net"
   
   } else {
           $account = "rcastill";
            $pop3 = "mail\.icix\.net"};
$pass = "ramon1";

print "$account\n";
print "$pop3\n";
$pop = new Mail::POP3Client($account, $pass,$pop3 )|| die "can't connect: @!";;
                 for ($i = 1; $i <= $pop->Count; $i++) {
                       foreach ($pop->Head($i)) {
                               /^(From|Subject): / and print $_, "\n";
                       }
                       print "\n";
                 }
                 $list = $pop->List;
                 print "$list\n";