#!/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...";

##</code><code>##

$ test3.pl && echo success  

sh: asasas: not found
 *** THIS SHOULD FAIL ***  at test3.pl line 5.
success

##</code><code>##

perl -V
Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
  Platform:
    osname=solaris, osvers=2.6, archname=sun4-solaris
    uname='sunos cairnpapple 5.6 generic sun4u sparc sunw,ultra-4 '
    hint=recommended, useposix=true, d_sigaction=define
    bincompat3=y useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O', gccversion=2.7.2.3
    cppflags=''
    ccflags =''
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    voidflags=15, castflags=0, d_casti32=define, d_castneg=define
    intsize=4, alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =''
    libpth=/lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
    libc=/lib/libc.so, so=so
    useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fpic', lddlflags='-G'


Characteristics of this binary (from libperl):
  Built under solaris
  Compiled at Dec 10 1998 12:51:04
  @INC:
    /opt/gnu/lib/perl5/sun4-solaris/5.00404
    /opt/gnu/lib/perl5
    /opt/gnu/lib/perl5/site_perl/sun4-solaris
    /opt/gnu/lib/perl5/site_perl
    .