#!/usr/bin/perl
use LWP::Simple;
$status = getstore("http://www.example.com","test.txt");