Select Code to Download

Select or download this

my %opts=(GetOptions(
           'help|?'     => \$help,
...
           'user'     => \$user,
           'password'     => \$password
          ));

Select or download this

GetOptions (\%opts,
      qw(    help|h|?
...
               user=s
               password=s
          ));

Select or download this
```
    &Help;
}
```

Select or download this

    &Help;
}
...
else {
        &Help;
}

Select or download this

my $dbh;
my $DSN = "driver={SQL Server};Server=$opts{server};database=$database
+;";
...
else {
    &Logger("ERROR       - Cannot connect to DB: $dbh->errstr()\n");
}

Select or download this

my $query = "select * from sometable";
my $sth = $dbh->prepare($query);
...
    $sth->execute(@$rec);
}
$setsth->finish();

Select or download this
$setsth->execute(@$rec);
Select or download this
$sth->execute(@$rec);