#!/usr/bin/perl
use warnings;
use strict;

use Net::SCP qw(scp);

my $scp = Net::SCP->new( "servername", "username" ) or die "Cannot connect: ";
	$scp->cwd("/tmp/test");
	$scp->get("gettest");
	
while (</tmp/test/*>) {
	#print $_ . "\n";
	$scp->put($_) or die "Could not place file: " . $scp->{errstr};
}


##</code><code>##

  use Net::SSH qw(sshopen2);
  use strict;

  my $user = "username";
  my $host = "hostname";
  my $cmd = "command";

  sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";

  while (<READER>) {
      chomp();
      print "$_\n";
  }

  close(READER);
  close(WRITER);