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

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