#!/usr/bin/perl
#
# geturl:  script to get and print the contents of
#          an HTTP URL (performs a GET)
#          part of the optionserver software
# November 1998 clh
#
# uses perl5 and LWP module
# expects a URL as its one argument
# Note that protocol must be included
#
# returns NULL if object of URL not found
# else returns the object (document,image,etc.)
#
use LWP::Simple;

if (defined(head($ARGV[0]))) {

  getprint($ARGV[0]);

} else {

  print "\0";

}