#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $var = `perl -v`;

print "Content-type: text/html\n\n", $var,"<br /><br />",$DBI::VERSION;