===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -p -r1.20 -r1.21
--- pta/pta_import.pl	2020/11/23 14:14:23	1.20
+++ pta/pta_import.pl	2020/11/25 12:46:41	1.21
@@ -198,7 +198,10 @@ close $in;
 $csv_account or die "no ACCOUNT line in $fn";
 
 # Parse the CSV file from the bank.
-LINE: while (<>) {
+if (@ARGV) {
+	open STDIN, '<', $ARGV[0] or die "$ARGV[0]: $!";
+}
+LINE: while (<STDIN>) {
 	chomp;
 	next if (/^$/);
 	foreach my $ignore (@ignored) {