#!/usr/bin/env perl

use strict;
use warnings;
use DBI;

my $file="sample";
my $dbh=DBI->connect("dbi:SQLite:dbname=$file","","") or die "Unable to establish connection to $file\n";

my ($link)=$dbh->selectrow_array("SELECT value FROM ItemTable WHERE key='link'");

print "\$link is $link\n";
system("echo", $link);
$dbh->disconnect;