#!/usr/local/bin/perl # this program reads a line of input, and writes the line back out $inputline = <STDIN>; # read a line of input print( $inputline ); # write the line out