Simple
#!e:/Typerl/perl/perl5/ntt/perl $inputline = <STDIN>; print( $inputline );