c:\test>perl -nlE" say qq[>$_<]; " CON
fred
>fred<
bill
>bill<
john
>john<
^Z


c:\test>perl -E" say qq[>$_<] while <STDIN>"
fred
>fred
<
bill
>bill
<
john
>john
<
^Z