Category:	E-Mail Programs
Author/Contact Info	foo792@netzero.net
Description:	This perl script checks your e-mail account with the flags that you provide at the command line. NOTE: This perl script requires the Net::POP3 module. Get it from: http://www.cpan.org/modules/by-module/Net/libnet-1.0606.tar.gz. Example: pop_check <server_name> <account> <password> [download]
#!/usr/bin/perl use Net::POP3; usage(0) if "-h" eq $ARGV[0]; || "-help" eq $ARGV[0]; usage(1) if 2 != $#ARGV; ($hostname, $account, $password) = @ARGV; $handle = Net::POP3->new($hostname) or die "Unable to establish a POP3 + connection to $hostname.\n"; defined($handle->login($account, $password)) or die "Unable to authent +icate ($account, $password) at $hostname.\n"; $message_list = $handle->list or die "Unable to retreive list of avaib +le mesages.\n"; foreach $item (keys %$message_list) { $header = $handle->top($item); print @$header; } sub usage { print "Use this utility as 'pop_check HOSTNAME ACCOUNT PASSWORD',\n"; print " or 'pop_check -help', to see this message.\n"; exit($_[0]); }