#!/usr/bin/perl -w
use strict;
# $Id: blorfl.pl,v 0.0 2006/09/21 11:11:11 shmem Exp $
print "foo";
warn "warn";
print "\n";
__END__

##</code><code>##

qwurx [shmem] ~> perl -e 'open(STDERR,">&", STDOUT); do "blorfl.pl"' 1>/dev/null
qwurx [shmem] ~> perl -e 'open(STDERR,">&", STDOUT); do "blorfl.pl"' 2>/dev/null
foo
warn at blorfl.pl line 5.


##</code><code>##

qwurx [shmem] ~> perl -le 'open(STDERR,">&", STDOUT); system "perl blorfl.pl"' 1>/dev/null   
qwurx [shmem] ~> perl -le 'open(STDERR,">&", STDOUT); system "perl blorfl.pl"' 2>/dev/null   
warn at blorfl.pl line 5.
foo