Пример подключения к базе данных на Perl

#!/usr/bin/perl
use DBI;

$database = "";
$hostname = "";
$port = "";
$user = "";
$password = "";

$dbh = DBI->connect(
    "DBI:mysql:$database:$hostname:$port",
    $user, $password)
    or die "Ошибка подключения к базе данных";

print "Успешно подключились к базе данных";

$dbh->disconnect;