my($currentLine, $name, $infilename);

##</code><code>##

    if ($currentLine =~ /^ \$name:/) {

##</code><code>##

    !/usr/local/bin/perl

##</code><code>##

    #!/usr/local/bin/perl

##</code><code>##

    #!/usr/local/bin/perl -w