#!/bin/perl

use LWP::Simple;
$URL = "http://wineclub/pici/33808.image/jpeg";
$NUM = 1000;

$text = get "$URL";

for ( $i=0; $i< $NUM; $i++ )
{
  
  print ("\n\n #$i-$text");
  print $text
  }