#!/usr/bin/perl

     use LWP::Simple;

     $url = 'http://xxx.yy.com/';
     getprint($url);