#!/usr/bin/perl
use LWP::Simple;

unless (head('http://www.123box.co.uk')) {
    push (@error,"$FORM{'url'} head error.");
}