Select Code to Download

#!/bin/sh
INFILE=test.in
...
if [ 0 -lt $non_comment_lines ]; then
  perl ./process_file.pl < $INFILE
fi

#!/usr/bin/env perl
use strict;
...
if ($file =~ m/^#/) {
  print "process me!\n";
}