Auto Clicker with proxy support

#!/usr/bin/perl 
use LWP; 
use strict; 
use warnings; 

if(@ARGV < 2) { 
    die("[Autoclicker with proxy support]\n". 
    "Usage: webclicker.pl <site> <proxy file>\n"); 
} 

my $ua = LWP::UserAgent->new; 
$ua->timeout(60); 
my $site = $ARGV[0]; 
my $proxyfile = $ARGV[1]; 

open(DAT,$proxyfile) || die("Can't open proxy file"); 
my @proxys=<DAT> 
close(DAT); 

foreach my $proxy (@proxys) 
{ 
    chomp($proxy); 
    print "Clicking using $proxy..."; 
    $proxy = "http://".$proxy if ($proxy !~ m/http:\/\//); 
    $ua->proxy('http', $proxy); 
    if ($ua->get($site)->is_success) { 
        print "done.\n"; 
    } 
    else { 
        print "fail.\n"; 
    } 
}