#!/usr/bin/perl -w

# $Id: testssh.pl,v 1.1 2005/02/28 06:46:50 joostvb Exp $
# $Source: /var/cvs/ad1810.com/packages/ad1810-ssh/contrib/testssh.pl,v $

use lib "/home/rws/src/bilbo" ;

use sshattach() ;

my ($host, $sec) ;

$sec=new sshattach ;
$host="foobar.example.com"; 

my @out=$sec->sh( "$host ls alternative*" ) ;

map { print "$_\n" } @out ;
#print scalar @out ;
#print "\n";

#$sec->rsync( "$host:/var/log/messages ." ) ;
$sec->cp( "$host:/home/rws/alternative-inputrc ." ) ;

#@out=$sec->rsync( "$host:/var/log/" ) ;
#map { print "$_\n" } @out ;