use strict;
my ($server, $user, $pass);