[root@spoonbill root]$ cat /sbin/parser
#!/usr/bin/perl

while (<>) {
  print "line: $_";
}

[root@spoonbill root]$ cat scr
#!/sbin/parser
this
is
my
file