#!/usr/bin/perl -w
use strict;
use Net::POP3;
my $pop = Net::POP3->new('localhost', Timeout => 30);
my $user = 'root';
my $pass = 'something';
$pop->login ($user,$pass);
$pop->top();

##</code><code>##

Can't call method "login" on an undefined value at ./pop3.pl line 7.