use warnings;
use strict;

=h1 Does perl even work on this box?

use DBI;
use Data::Dumper;
my $histfn = >>>put a path here for your temporary/test database<<<
my $dbsql=DBI->connect("dbi:SQLite:dbname=$histfn", { RaiseError=>1 }); 

$dbsql->do(q{create table foo (id int, msg text)});
$dbsql->do(q{insert into foo VALUES (1,'hello')});
my $ra = $dbsql->selectall_arrayref('select * from foo');
print Dumper($ra);

=cut

print "hello, world!\n";