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