my( $machine, $db, $user, $pass ) = split(/\s+/, $icradiusmachine);
chdir $icradius_mysqlsource or die "Can't cd $icradius_mysqlsource: $!";
my($reader,$writer,$error)=(new IO::Handle, new IO::Handle, new IO::Handle);
my( $machine, $db, $user, $pass ) = split(/\s+/, $icradiusmachine);
chdir $icradius_mysqlsource or die "Can't cd $icradius_mysqlsource: $!";
my($reader,$writer,$error)=(new IO::Handle, new IO::Handle, new IO::Handle);