use LWP::Simple; if (getstore($url, $dest) == RC_OK) { print "Downloaded file - ", -s $dest, " bytes\n"; } else { print "Error!\n"; }