Select Code to Download

#my $path = '/opt/finance/File1';                                     
+          
my $path = q|/tmp/File1|;
...
 }
close(CSV);

 perl -e 'my %hash = (q|first|=>1,q|third|=>3,q|second|=>2); print key
+s %hash;'

firstsecondthird