パスワードなしのdsaで認証を通してやる必要があります。 ssh_baclup.pl target.list #!/usr/bin/perl $SERVER='hogehoge@192.168.1.2'; main(); exit(); sub main{ my @lists=read_target($ARGV[0]); for(@lists){ my ($target,$savename)=split(/,/,$_,2);…