Simple remote command execution in perl using Net::SSH2 module.

remote_ssh_commands.pl

#!/usr/bin/perl

=begin
Author: john4s
Scope: Check file system disk usage on remote system
Version: v1.0

DISCLAIMER:
To run this script you need to import your public rsa key on the server.
=cut

use warnings;
use strict;
use Net::SSH2;

# Configuration management
my $server = "YOUR IP";
my $port = 22;
my $user = "USERNAME";

# SSH Connection
my $ssh = Net::SSH2->new();
$ssh->connect($server, $port) or die $!;
$ssh->auth_agent($user);
die "Failed to autenticate: $!\n" unless $ssh->auth_ok;
print("Connected to $server as $user\n");

# Run remote commands
my $channel = $ssh->channel();
$channel->exec("df -h");
print("$_") while <$channel>;
$channel->close;