use warnings;
use strict;
use Data::Dumper;
use Net::SFTP::Foreign;
$Data::Dumper::Useqq=1;

die "Usage: $0 SSH_HOST\n" unless @ARGV==1;
my $sftp = Net::SFTP::Foreign->new($ARGV[0]);
$sftp->die_on_error("Unable to establish SFTP connection");

my $fh1 = $sftp->open("/etc/passwd") or die $sftp->error;
while (<$fh1>) {
	print Dumper($_) if /root/ || /wheel/ || /www/; 
}