-            $in = $txt; # Now pray ...
+            open $in, '<', \$txt or return;

##</code><code>##

        while (my $row = $csv->getline ($in)) {