perl -le "print BLAH 'foo' or warn $!; print 'foo'; print $!";