Select Code to Download

InsertRecord($val1, $val2);
my @array = RetrieveValues($val2, $val3);
...
      my $dbh = DBI->connect(xxxx);
      # stuff
      }