Win32::API->Import(
   'urlmon', 'URLDownloadToFile', 'PPPNP', 'N',
);

my $pCaller    = 0;
my $szURL      = 'http://somedomain.com/pic.jpg';
my $szFileName = 'c:\1img.jpg';
my $dwReserved = 8;  # Download from offline cache
my $lpfnCB     = 0;

my $res = URLDownloadToFile(
   $pCaller,
   $szURL,
   $szFileName,
   $dwReserved,
   $lpfnCB,
) or die Win32::FormatMessage(Win32::GetLastError);