Select Code to Download

sub get_html_filename{
use Net::SFTP::Foreign;
use File::Basename;
...
my $html_file = $word.$new_num.'.'.$filetype;
return $html_file;
}

$ perl powell1.pl 
title is powell
values are [correct]
...
old num is 2
new file is powell3.html
$

my $ls = $sftp->ls('/home/ftptest/inbound', no_wanted => qr/^\./ );
my @names_and_sizes = map { { filename => $_->{filename}, size => $_->
+{a}->size } } @$ls;

# or...

my %size = map { $_->{filename} => $_->{a}->size } @$ls;