Select Code to Download

{
    my $dbh;
...
}

END { dis_conn() }

sub get_db_stuff {
    my ($filename) = @_;
...
    die "Invalid $data in $filename!\n" unless $db and $user and $pass
+;
  return ($db,$user,$pass);
}