#!/usr/bin/perl
use Net::POP3;
$mailhost='pop.gmail.com';

$un='xyz@gmail.com';
$pw='xyz';

$conn= Net::POP3->new ($mailhost) or die "unable to xssf connect \n";
print "$conn\n";
$ret=$conn->login($un, $pw) or die "unable to connect $!";
print "\n$ret\n";