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

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

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

##</code><code>##

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

##</code><code>##

[root@spoonbill root]$ ./scr
./scr: line 2: this: command not found
./scr: line 3: is: command not found
./scr: line 4: my: command not found
Usage: file [-bciknsvzL] [-f namefile] [-m magicfiles] file...
Usage: file -C [-m magic]