#!/usr/bin/perl my($host, $username, $password); $host="221.xxx.xxx.xxx"; $username="ruis"; $password="xxxxxcxx"; use strict; use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new($host); $ssh->login($username, $password); my($local_dir, $local_filename, $remote_dir, $remote_filename); #$remote_dir = "/home/ruis"; #$remote_filename = "passwd"; $local_dir = "/home/RR"; $local_filename = "_httpd"; ope..