#!/usr/bin/perl

use IPC::Open2;

$pid = open2($r,$w,'time',@ARGV)
  or die;

<$r>;

print $w "UIDL\r\n";
<$r>;
while (<$r>)
{
  s/[\r\n]*$//;
  last if ($_ eq ".");
  my($num,$id)=split;
  $filename{$num}=$id;
  push(@l,$num);
}

foreach my $l (@l)
{
#  print STDERR "Retreiving message $l ($filename{$l})...\n";
  print $w "RETR $l\r\n";
  <$r>;
  my $line = 0;
  while(<$r>)
  {
    last if ($_ eq ".\r\n");
    $line++;
  }
#  print "  $line lines.\n";
}

close($w);
close($r);