Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  warn "ERR - $err\n";
  exit 1;
}

#!/usr/bin/perl
print "Content-Type: text/html\n\nWe have ignition!"
...
print "Roger Houston testing Carp with typo now

etc