#!/usr/local/bin/perl
print STDOUT "foo"; print STDERR "bar";