perl -e 'use P;
my $x=27;
P $x;
my $y=\*STDOUT;
P $y,"through STDOUT=%s", $x'
27
through STDOUT=27

##</code><code>##

P $x
   #and 
P STDOUT $x    #without the comma

##</code><code>##

# perl -e 'use P;
P \*STDOUT, "Input was: %s", \*STDIN;      
'
my input
Input was: <*=my input
>