use LWP::Simple; print "$webpage exists and server is up!\n" if (head($webpage));