Help for this page
#!C:/perl/bin use warnings; use strict; ... } close FILE;
for my $field(@printerstat) { print "$field\n"; }