The first answer was ok, but the second was not what I asked you. I want to now the DSN of your database connection:

use DBI;

my $dsn = qq{dbi:SQLite:dbname=my.db};
my $dbh = DBI->connect($dsn, '', '');
[download]

If you are using something different, you is probably not using DBI the right way.