Select Code to Download

system("lpstat -v -d -p -l -D >junk.txt");
open RI,"<junk.txt" || die "Can't open junk.txt for reading:$!\n";
...
  {
    $system{$1} = $2;
  }

my @output =`lpstat -o -v -d -p -l -D`;.
my( %device, %system );
...
  {
    $system{$1} = $2;
  }