#!/usr/bin/perl
use LWP::Simple;
$url = shift or die;
while (1) { getprint($url); }