my $COMMAND = "wget -q -O $FILENAME $URL";
  print `$COMMAND`;

##</code><code>##

 open my $sh, "-|", "wget", "-q", "-O", $FILENAME, $URL;
 print <$sh>;
 close $sh;

##</code><code>##

 use LWP::Simple;
 is_success (getprint ($URL)) or warn "Fetch failed";