Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $pass = 'something';
$pop->login ($user,$pass);
$pop->top();

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