sub getnetpop3
{my($l)=@_;
my(@a,@b,$i,$j,$procname,$s,$t);