#!/usr/bin/perl -w
use strict;

$ENV{'PATH'}=''; # removing this line makes it work

open (MAILQ, "/usr/bin/mailq |")
        or die "open failed: $!\n";

##</code><code>##

/usr/bin/mailq: basename: No such file or directory
/usr/bin/mailq: tr: No such file or directory