$filename = "R202406181844029040.xlsx" if ($testMode);

my ($ext) = "$upload_dir/$filename" =~ /(\.[^.]+)$/;

$ext =~ s/\.//g;
$ext =~ s/^\s+|\s+$//g;

my $book;

my $upFilename = "$upload_dir/$filename";

$logger->debug("entering eval with $upFilename ");

if (-e $upFilename) {
	$logger->debug("file exists");
} else {
	$logger->debug("file DOES NOT exists");
}

eval {
    $book  = ReadData ("$upFilename");
    1;
} or do {
	...handle error here
};