#!/usr/bin/perl -w
my $line = <STDIN>;
print "Line is: " . $line;

$ echo 'echo' | ./teststdin.pl 
Line is: echo

##</code><code>##

$ cat echo.txt 
echoed file
$ ./teststdin.pl < echo.txt
Line is: echoed file