now you can help me.
can't get this bloody thing to do nothing!
kix does not even show me the errors.

code:
FTPget("ftp://ftp.cpan.org/pub/CPAN/src/perl-5.8.0.tar.gz",@scriptdir+"\perl-5.8.0.tar.gz")
if @error "Error: " @error else "success" endif
get $

Function FTPget($sURL, $sTargetFile)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("MSXML2.ServerXMLHTTP")
  if @error exit cerror endif
  $oStream = CreateObject("ADODB.Stream")
  if @error exit cerror endif

  $oFTP.Open("GET", $sURL, not 1)
  if @error exit cerror endif
  $oFTP.Send

  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error exit cerror endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error exit cerror endif
  $oStream.Close
EndFunction

function Cerror(optional $)
 $Cerror = @error
 $=0+$
 $Cerror=dectohex($Cerror)
 $Cerror=right($Cerror,4)
 $_nul=execute("$$Cerror=&$Cerror")
 if $ _translate($Cerror)
  $_nul=execute("$$Cerror='@serror'")
 endif
endfunction
function _translate($)
 exit $
endfunction
_________________________
!

download KiXnet