#!/usr/bin/perl 
use strict;
use warnings;
use diagnostics;

use Getopt::Std;
use DBI;
use DateTime;
use FileHandle;
use Socket;

use lib q(/home/dds/utils);
use DDSUtils;

# a few 'my $thisNthat;'s ...

print  "$0: ",(scalar localtime), "\n";

# do stuff...

print "$0: " ,(scalar localtime), " run complete\n";
$Odbh->disconnect;
exit;