in reply to need to read the web source
use LWP::Simple; my $url = shift; print get $url; [download]
or the other way around:
getprint $url [download]