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