#!/usr/bin/perl 
use LWP::Simple;

  my $url  = "http://www.xyz/sql.gz";
  my $file = "xyz.sql";
 
  # get the data
  
  is_success(getstore($url, $file))
    or die "Mark probably broke the server again!\n";