Know if output is being captured in Perl

if (-t STDERR) {
    print "standard error is not being captured (it's going to the terminal)\n";
    # email the error
}
else {

    print "standard error IS being captured\n";

    # just print the error

}