use Net::SFTP;
    my $sftp = Net::SFTP->new("backup_host");
    $sftp->put("local_file", "remote_file");