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