Select Code to Download

#!/usr/bin/perl
use strict;
...
my $sftp = Net::SFTP->new($host, %args);
my $ls = $sftp->ls('/sample/path');
print "$_->{filename}\n" for (@$ls);