#!/usr/bin/perl
use strict;
use warnings;

my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";

 open (FILE, $file);
 while (<FILE>) {
 chomp;
 ($emp, $dt, $account, $baldue, $credit, $netarrears, $locno, $devno, $parkbal,
$rentnoretro, $maintbal, $legbal, $otherbal, $retrobal, $chu, $mk, $buildno, $mo
veoutdt, $status, $legal, $legdt) = split("\t");
 print "$dt  $account  $baldue  $credit $netarrears $locno\n";
 }