#!/usr/bin/perl -w
#
# Pings the MythTV master backend
#
# Automatically detects database settings.
#

# Includes
    use DBI;
    use Getopt::Long;
    use MythTV;

# Some variables we'll use here
    our ($usage);

# Load the cli options
    GetOptions('usage|help|h'                  => \$usage
              );

# Print usage
    if ($usage) {
        print <<EOF;
$0 usage:

options:

--help

    Show this help text.

EOF
        exit;
    }

# Connect to mythbackend
    my $Myth = new MythTV();