#!/usr/bin/perl
# File to check
$fileToCheck = @ARGV[0];
print "Check HTTP File\n";
# Create an agent
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("PerlMonks Webbot /1.1.1" . $ua->agent);

# Create a request
my $req = new HTTP::Request HEAD => $fileToCheck;

# Pass request to the user agent and get a response back
my $res = $ua->request($req);
if ($res->is_success) {
        print "file $fileToCheck exists\n";
} else {
        print "file $fileToCheck doesn't exist\n";
}                                                  
exit;