Select Code to Download

#!/usr/bin/perl

...
close(file_read);
close(file_write);
exit;

2017-05-01,starting balance to track character count,,900000.00
2017-05-01,phone bill dsfsdfsfdsfsfsfsdfsfsfsfsfdfsdfsfsfsfsf,300000.0
+0,
...
2017-06-03,credit dfdfd01234567890123456789034567890123,,30.98
2017-06-08,Food,23.00,
2017-06-12,Cash,20.00,