#!/usr/bin/perl -w
# create a SQLite test database
use strict;
use DBI;

my $db = shift || 'no_name.splite';
my $dbh = DBI->connect("dbi:SQLite:$db", "","",
        {RaiseError => 1, 
         sqlite_see_if_its_a_number => 1, 
          PrintError=>0})
   or die "can't connect\n";

$dbh->func('sqrt_s_s', -1, 'sqrt_sum_of_sqrs', 'create_function'); #need length function
sub sqrt_sum_of_sqrs {
    my $sum_sqrs = 0.0;
    map {$sum_sqrs += $_**2} @_;
    return sqrt($sum_sqrs);
}

my $sth;

my @rowa = $dbh->selectrow_array("select 3 as A,4 as B, sqrt_s_s(3,4) as C");
print join ("\t",@rowa) ;