#!/usr/bin/perl -I/usr/local/dcvp/bin
use strict;
my $output = qx(asasas 2>&1);  ### Non-existent system call to force error
#$? = 0; ### This fails correctly if we reset $? but reports success otherwise
die " *** THIS SHOULD FAIL *** ";
print "At least we don't see this message...";