Select Code to Download

use File::Basename;
...

# Now %printers contains all valid printer attributes
# and their values

my (%old, %new);
...
...

# Then do the reverse comparision looping over %new
# I'm sure you can figure that out