#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $url = 'http://www.somesite.com/somefile';  
head($url) ? print "Good\n" : print "No file\n";
#or if you don't like/know about ?:
if (head($url)) {
print "Good\n";
} else {
print "No File\n";
}