use Net::SCP;
$Net::SCP::scp = "scp -i $identity_file";
$scp = Net::SCP->new( "hostname", "username" );