use Env qw(PRINTER LPDEST NPRINTER NGPRINTER PATH);
#added the two following lines
$ENV{'PATH'}='/usr/local/sbin';
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

############################################################
sub list_printers {
...