$ssh = Net::SSH::Any->new("ge.com", user=>luccap, password=>$password); $ssh->scp_put('\\\\rls02\\common\\TECH_DEV\\PUBLIC\\Orders\\CUSTOMER ORDERS\\GE4567_TX-03A\\A1\\MOR_GE4567_6579_A1.docx', '/home/luccap/MOR_GE4567_6579_A1.docx') or die $ssh->error;