#!/usr/bin/perl my($host, $username, $password); $host="서버IP"; $username="root"; #$password=""; use strict; use Net::SSH::Perl; my @KEYFILE = ("/root/.ssh/id_rsa"); my $ssh = Net::SSH::Perl->new($host, debug=>0, identity_files=>\@KEYFILE); $ssh->login($username); my($local_dir, $local_filename, $remote_dir, $remote_filename); #$remote_dir = "/home/ruis"; #$remote_filename = "passwd"; $local_dir ..