#! /usr/bin/perl

use strict;
use warnings;

use File::Find::Rule;
use Data::Dumper;

my $dir = ('~/Hamradio/Keithsdr/KEITHSDR-main/SDR_RA8875/');

system "ls $dir";               # This works and verifies the search
                                # path - $dir

my @files = File::Find::Rule->file() 
                            ->name('*.cpp')
                            ->in($dir);

print Dumper $dir;              # Good directory string
                                # $VAR1 = '~/Hamradio/Keithsdr/
                                # KEITHSDR-main/SDR_RA8875/';
print Dumper(\@files);          # Empty list $VAR1 = []