<: use DBIx::Simple; $get{q} and print DBIx::Simple -> new("dbi:SQLite:foo.db", undef, undef, { RaiseError => 1 }) -> query($get{q}) -> html(table => { border => 1 }, tr => { bgcolor => [qw/white silver/] }); :>