$line = readline(*STDIN);

##</code><code>##

$line = <XRPT>;