use DBI;

my $computer = ".";

my $dbh_connect = DBI->connect("dbi:WMI:$computer");
my $wmi_call = $dbh_connect->prepare(<<WQL);
    Select * from Win32_LogonSession Where LogonType = 2 OR LogonType = 10
WQL

	$wmi_call->execute();
	while (defined (my $row = $wmi_call->fetchrow_arrayref())) {
		my $ev = $row->[0];
		$time = $ev->{StartTime};
		$user = $ev->{Name};
	}
	
print "User: $user LOGON TIME: $time;";