Help for this page

Select Code to Download

Select or download this

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