my $curdir = $sftp->cwd;
print"\ncurdir = $curdir";

$envment = "b";
$pat1 = $envment . "REP_*.dat";
$pat2 = $envment . "REQ_*.report";
$pat3 = $envment . "REQ_*.report.*";
$pat4 = $envment . "REQ_*.req.copied";
$ls1 = $sftp->ls('/', names_only => 1, wanted=>qr/$pat1/);
$ls2 = $sftp->ls('/', names_only => 1, wanted=>qr/$pat2/);
$ls3 = $sftp->ls('/', names_only => 1, wanted=>qr/$pat3/);
$ls4 = $sftp->ls('/', names_only => 1, wanted=>qr/$pat4/);

print "\nH1. Attempt to list files ";
foreach $file ( @{$ls1}, @{$ls2}, @{$ls3}, @{$ls4} )	{ 
	print "\nH1. $file ";
}


@ls1 = @{ $sftp->ls('/', names_only => 1, wanted=>qr/$pat1/) };
@ls1 = @{ $sftp->ls('/', names_only => 1, wanted=>qr/$pat2/) };
@ls1 = @{ $sftp->ls('/', names_only => 1, wanted=>qr/$pat3/) };
@ls1 = @{ $sftp->ls('/', names_only => 1, wanted=>qr/$pat4/) };
print "\nH2. Attempt to list files ";
foreach $file ( @{$ls1}, @{$ls2}, @{$ls3}, @{$ls4} ) {
    print "\nH2. $file ";
}

##my $files = $sftp->glob("/b*.dat", names_only => 1);
##print "\n11. $files";

$file{pattern1} = $envment . "REP_*.dat";
$file{pattern2} = $envment . "RPi_*.dat";
while ( ( $key, $pattern ) = each ( %file )  ) 	{
	print "\nKey = $key, Pattern = $pattern";
	$ls = $sftp->ls('.', names_only => 1, wanted=>qr/$pattern/);
	print "\nH3. Attempt to list files ";
	foreach $file ( @{$ls} )	{
		print "\nH3. File = $file";
	}   ## end foreach $file ( @files )
}   ## end while