Select Code to Download

my $sql = <<'END_SQL';
CREATE TABLE people (
...
  fname    VARCHAR(100),
  lname    VARCHAR(100),
  email    VARCHAR(100) UNIQUE NOT NULL,

#!/usr/local/bin/perl

...
print "dbfile: $dbfile <br>\n";
print "lg_name: $email <br>\n";
print "</body> </html>\n";