sub scp_stdby_config { my $scpe = Net::SCP::Expect->new; $scpe->login("oracle", "$o_ps"); $scpe->scp("/amp/oracle/cmerch1/test.txt", "$s_node_1:/amp/depot/upgrade/transient/autoupgrade/configfiles/"); } scp_stdby_config();