##
while () {
$csv->parse($_);
push(@printerstat, $csv->fields);
# print @printerstat;
}
spit(@printerstat);
sub spit {
for my $field(@printerstat) {
print "$field\n";
}
}
##
##
this is a field to start with
field2
field3
#
*
field3 of line 2
field1 of line3
and this is the second field of line3
field3 of line3