Select Code to Download

#!/usr/bin/perl

use strict;
...
    . $sftp->error;
    print "$_->{filename}\n" for (@$ls);
$sftp->disconnect;