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

my $db=myDB->new();
die($db->error()) if($db->error());

my @data=$db->fetch_all();
warn($db->error()) if($db->error());

#...