Select Code to Download

#!/usr/bin/perl -w
my $line = <STDIN>;
...

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

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