use strict;
use Data::Dumper;
use Net::SFTP;
my $sftp = Net::SFTP->new('foo.com', user=>'bar',
	password=>'baz', debug=>1);

$sftp->cd('boop');
$sftp->cd('blap');
$sftp->cd('blaz');
my @files = $sftp->ls;

print Dumper(\@files);