use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new(
  'sftp.foo.com',
  autodie => 1,
);

# cwd is '/users/UserName'
print $sftp->cwd(),"\n";
# Would like to cd to directory below 'UserName'
$sftp->setcwd('Foo');