use Net::SCP;

$scp = Net::SCP->new( { 
    "host"=>$hostname, 
    "user"=>$username 
} );

$scp->scp($source, $destination);