Select Code to Download

open (RD, "ls -l /dir1/dir2/dir3/'$b' |");
...
foreach $fileline (@user_dir)
{
@filenames = split(/\s+/,$fileline, 9);

my $dir = "/dir1/dir2/dir3/$b";
opendir my $dh, 
...
    my $filename = $fileline;
    ...
}