Select Code to Download

#!usr/bin/perl
use strict;
...
    or die "unable to retrieve directory: ".$sftp->error;

print "$_->{filename}\n" for (@$ls);