use strict;
use warnings;
use diagnostics;

use File::Copy;
use Net::FTP;
use Sys::Hostname;
my $hostname = hostname();


my $file = '00000001.txt';
my $fileB = '00000001.txt';
my $host = $hostname;
my $user = '*******';
my $pass = ********';
my $dir  = '/doytest/cgi-bin/Data/';
my $ftp  = Net::FTP->new($host, Debug => 1);

$ftp->login($user,$pass);
$ftp->cwd($dir);
$ftp->get("$file","/doytest/cgi-bin/Data/Temp/$fileB");
$ftp->quit;