#!/usr/local/bin/perl
#sub p {
# return "bob\n";
#}
*p=\*STDOUT;
print p ("hello\n");