$g_FtpCnxn = Net::FTP->new($l_Server,Debug => 0);
$g_FtpCnxn->login($l_Login ,$l_Passwd);
$g_FtpCnxn->ascii;
$l_Result = $g_FtpCnxn->put($l_SrcFile) 
$l_TgtFileName = "$l_TgtFile/$l_Result";
$l_ServerSize = $g_FtpCnxn->size($l_TgtFileName) # Size on Unix
@s_temp = stat($l_SrcFile);
$l_LocalSize = $s_temp[7]; # Size on Windows