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