my($db) = new Win32::ODBC("user_logons");
while (my $machine = <MACHINEFILE>) {
	  	  
	  my @Results = ();			
          @Results = `psloggedon.exe \\\\$machine`;
	  my $LocUsr = $Results[6];
	  [...]
	  
	  $db->Sql("INSERT INTO <Data> (pc_name, user_name,time+date) " . "VALUES ($machine, $LocUsr, GETDATE())");
}