#!/usr/bin/perl

use strict;
use Net::SSH::Perl;

my $host = 'localhost';
my $user = 'username';
my $pass = 'password';
my $cmd  = 'perl /path/to/showthis.pl';

my $ssh = Net::SSH::Perl->new(
          $host, 
          protocol => '2',
          debug    => 1,
);
$ssh->login( $user, $pass );

my ( $stdout, $stderr, $exit ) = $ssh->cmd($cmd);
print "$stdout\n";