Select Code to Download

#!/usr/bin/perl
use strict;
...
    $ENV{'MAYBE_EVEN_SEVERAL'}='environment variables';
}
use DBI qw( ... ); # maybe hidden in your database handling module