$ cat -vet rep_input.cgi

#!/usr/bin/perl -w ^M$
^M$
use strict;^M$
use CGI qw(:all);^M$
require 'include.pl';^M$
$! = 1;^M$
print header; ^M$
use DBI;^M$
^M$
my $REP_FNAME^I^I= uc( param('rep_fname') ); ^M$
my $REP_LNAME^I^I= uc( param('rep_lname') ); ^M$