===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- pta/pta_import.pl	2020/10/31 01:02:57	1.1
+++ pta/pta_import.pl	2020/11/01 20:12:08	1.2
@@ -57,7 +57,7 @@ sub import_chase_credit_card() {
 	    'Professional Services' => 'PRO',
 	    'Shopping' => 'SHOP'
 	);
-	while (<CSV>) {
+	while (<>) {
 		chomp;
 		my ($trans_date, $post_date, $description, $category, 
 		    $type, $amount) = split /,/;
@@ -88,11 +88,9 @@ my $chase_credit_card_header = "Transaction Date,Post 
     "Description,Category,Type,Amount";
 my $firstLine;
 
-open CSV, '<', $ARGV[0];
-chomp($firstLine = <CSV>);
+chomp($firstLine = <>);
 if ($firstLine eq $chase_credit_card_header) {
 	import_chase_credit_card;
 } else {
 	print "Undefined bank header\n";
 }
-close CSV;