Select Code to Download

#!C:/perl/bin
use warnings;
use strict;
...
} 

close FILE;

for my $field(@printerstat) {
   print "$field\n";
}