$ENV{'PATH'} =  '';
$ENV{'BASH_ENV'} =  '';
my $server = '-a';
my @cupscmd=("/bin/ls ", "-l", $server, "-r");
my $cups_cmd=qx/@cupscmd/;
print $cups_cmd, "\n";