open (VARIABLES, "<variables.dat") or die "Error : $!\n";
while (<VARIABLES>){
  my ($ip, $domain, $smtp, $user, $name, $sendto) = split;
  print "$user\n";
}
close VARIABLES;