#!/perl/bin/perl
use CGI qw(:standard);
use Net::POP3;
use strict;
print header();
#Get CGI parameters
my $hostname= param("hostname");
my $account= param("account");
my $password= param("password");
#Connect to Host
my $connect = Net::POP3->new($hostname) or die "Unable to establish a POP3 connection to $hostname.\n";
#Authenticate User
defined($connect->login($account, $password)) or die "Unable to authenticate ($account, $password) at $hostname.\n";
#Retrieve Messages
my $messages = $connect->list or die "Unable to retreive list of avaible mesages.\n";
#Display Messages
my $msg;
my $grab;
foreach $msg (keys %$messages) {
$grab .="| $connect->top($msg) |
";
}
print<
Web Mail