print 'STDERR', "I like pie.\n";

##</code><code>##

  grep {$x eq $_ } 'STDIN', 'STDOUT', 'STDERR'

##</code><code>##

	sub foo {
	  my ($code, $serial, $location) = @_;
	  print "X", $code, "-", $serial, ": $location\n";
	}