#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

system("rmmod usbserial 2> /dev/null");
system("rmmod usblp 2> /dev/null");
system("service cups start 2> /dev/null");

my @printers = `lpinfo -h 127.0.0.1 -v`;

foreach my $printer (@printers) {
  chop($printer);
  my( $type, $desc ) = split /\s/, $printer;
  #next unless $type eq 'network';
  print "[".sprintf("%-8s", $type)."] $desc\n";
}

