(5:40:50 PM) jeetendra.p: use Net::IMAP;


my $username = "sameer\@onlyfordemo.com";
my $passwd = "nQ3gCgSZc4d8aLBJdTIRstVsJptjeW5z";

my $imap = new Net::IMAP('localhost') or die "$! \n";
$imap->login($username,$passwd) or die "$! \n";
my $ret = $imap->getquotaroot('INBOX');
        if($$ret{Status} ne "ok") {
            print "getquotaroot failed: Serverresponse:$$ret{Status}";
        }
$imap->logout();