use strict;
use warnings;
use Net::FTP;
use Win32::File0p;


my $hostname = '192.168.55.3';
my ($user, $pass) = ("user",'password');
my $Local = 'f:\winnt\win32\system32\dhcp\';
my $day = qw(Sun Mon Tue Wed Thu Fri Sat)[(localtime())[6]];
my $file = "dhcpsvrlog\.$day";

Map F => '\\\\192.168.1.15\\c$', { persistent => 1 } or die 
"Can't map drive: $!\n";

my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
$ftp->login($user,$pass) or die ("cant Login");
$ftp->put($file) or die ("Can't upload");
$ftp->quit;

unmap F;