Select Code to Download

chdir '/user/perl_monks' || die "cannot change dir: $!";
open(my $fh, "ls|") || die "cannot open the file handle:$!";
my @files = <$fh>;
...
for ( @files) {
    system ( "scp $_ username\@host:/any/folder/" );
}