#!/usr/bin/perl -w
use DBI;
my $dbh = DBI->connect("dbi:mysql:dbname=aghpisos;host=www.db4free","sadecki", "***");