#!/usr/bin/perl

use strict;
use WWW::Hotmail;

my $browser = new WWW::Hotmail;
$browser->login("foo", "bar");
for ($browser->messages) { $_->retrieve->accept; $_->delete; }

exit(0);