#! perl -slw
use strict;
use LWP::Simple;

open my $fh, '> :raw', $ARGV[ 1 ] or die $!;

my $code = getstore( $ARGV[ 0 ], sub { print $fh $_[ 0 ]; } );

close $fh;

print "rc=$code";