$sth = $dbh->prepare($sql)
  or Shop::print_error('could not connect to DB', $DBI::errstr);

##</code><code>##

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
use DBI;
use HTML::Template;
use Fatal qw/ open DBI::connect /;

$SIG{__DIE__} = \&print_error;

use My::Conf;
my $conf = new My::Conf;

### main program goes here.

sub print_error {
	eval {
		print CGI::header();
		
		open (FILE, "< $conf->{'errorfile'}");
		while (<FILE>) { print };
		close FILE;
	}
	eval {
		# Use sendmail to send @_ and %ENV to admin.
	}
	1;
};