原程序如下：
#!/usr/bin/perl
use Sybase::DBlib;
use Net::SMTP;
use Mail::Sender;
use HTTP::Lite;
use MIME::Base64;
#use HTTP::ProxySelector;
#use LWP::UserAgent;
my $counter=0;
while($counter<100){
$http = new HTTP::Lite;
$http->proxy('proxy.***.com:8180');
$encoded = encode_base64('user1:user1password');
$http->add_req_header("Authorization", $encoded);
$req = $http->request("http://travel.state.gov/visa/frvi/bulletin/bulletin_1770.html")
or die "Unable to get document: $!";
my $content=$http->body();
if($content =~ /July 2006/){
print 'Yes';
my $sender = new Mail::Sender {smtp => 'mail.***.com', from => 'visalooker@***.com', auth => 'LOGIN',
authid => 'user1',authpwd => 'uuser1password',};
$sender->MailFile({to => 'xyz@***.com', subject => "July 2006 Visa is avaiable",
msg => " ",
file => 'message.txt'});
exit 0;
}
sleep 60;
$counter ++;
}
my $sender = new Mail::Sender {smtp => 'mail.***.com', from => 'visalooker@***.com', auth => 'LOGIN',
authid => 'user1',authpwd => 'uuser1password',};
$sender->MailFile({to => 'xyz@***.com', subject => "No July 2006 Visa is avaiable today",
msg => " ",
file => 'message.txt'});