#!/usr/bin/perl

use strict;
use MythTV;

my $connect = undef;
my $myth = undef;

eval {
    $myth = new MythTV();
    # connect to database
    $connect = $myth->{'dbh'};
    print "Connected to MythTV.";
    1;
} or do {
    die "Couldn't connect to MythTV.";
};

