AppName: perl.exe	 AppVer: 5.8.8.817	 ModName: perl58.dll
ModVer: 5.8.8.817	 Offset: 0004005b

##</code><code>##

use strict;
use Win32::API;
  
  Win32::API->Import(
      'urlmon', 'URLDownloadToFile', 'NPPDN', 'N',
  );
#HRESULT URLDownloadToFile(      
#    LPUNKNOWN pCaller,
#    LPCTSTR szURL,
#    LPCTSTR szFileName,
#    DWORD dwReserved,
#    LPBINDSTATUSCALLBACK lpfnCB
#);

my $pCaller = 0;
my $szURL = 'http://somedomain.com/pic.jpg';
my $szFileName = 'c:\1img.jpg';
my $dwReserved = pack('d',8); #0x00000008 means download from offline cache
my $lpfnCB = 0;

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