Okay, having read some of what's available in the tutorial section on this site, the code now looks like this:

#!/bin/perl -w
#
# addvirtu.pl by William Scott Lockwood III and Peter Johnson
#
use strict;
use warnings;
use diagnostics;
use DBIx::Password;

my $filepath = $INC{"DBIx/Password.pm"};
[download]