#!/usr/bin/perl -w
#llamado desde advance
use CGI::Carp qw(fatalsToBrowser set_message);
use localidades;

my $app = 'localidades'->new(
                PARAMS => {
					DBI => [
						'dbi:mysql:advance:mysql2.us.midnet',
						'acido7',
						'oficina2'
					],
                },
				TMPL_PATH => './',
);
$app->run();