#!/usr/bin/perl

use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new( "windows.ftp.server", Debug => 0 )
             or die "Cannot connect to windows.ftp.server: $@";

$ftp->login( "userid","password" )
  or die "Cannot login ", $ftp->message;

$ftp->cwd( "/download" )
  or die "Cannot change working directory ", $ftp->message;

$ftp->get( $downFile, $ftpFile )
   or die "get failed ", $ftp->message;

$ftp->quit;