use strict; use CGI ':standard'; use HTML::Template; use DBI; my $BaseDatos = "dbi:SQLite:dbname=./personal.db3"; my $dbh = DBI->connect( $BaseDatos, "", "", { RaiseError => 1 } ) || die "ERR al conectarse a $BaseDatos: $DBI::errstr"; DBI->trace(1); my $template = HTML::Template->new( filename => 'sel_instancia.tmpl' ); my @hostnames = (); my @hosts = @{ $dbh->selectall_arrayref( "SELECT hostname FROM hosts", { Slice => {} } ) }; foreach my $host( @hosts ) { push @hostnames, $host->{hostname}; } $template->param(HOSTS => \@hosts); $dbh->disconnect; print "Content-type: text/html\n\n"; print $template->output;