$ cat my_test1.pl                         
#!/usr/bin/perl

use strict;
use warnings;

while (<>){
  print;
}
$ cat infile                              
2 from infile
3 from infile
$ echo "testing" | perl my_test1.pl infile
2 from infile
3 from infile