#!/usr/local/bin/perl
print STDOUT q{foo}; print STDERR q{bar};