--- a/_test/wmi.pl	Fri Feb 26 01:43:42 2010 +0300
+++ b/_test/wmi.pl	Fri Feb 26 10:49:21 2010 +0300
@@ -1,12 +1,12 @@
-#!/usr/bin/perl -w
-use strict;
-
-use Win32::OLE;
-
-my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2");
-
-my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting");
-
-print $_->Element,"\t",$_->Setting,"\n" foreach in $colServices;
-
-
+#!/usr/bin/perl -w
+use strict;
+
+use Win32::OLE;
+
+my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2");
+
+my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting");
+
+print $_->Element,"\t",$_->Setting,"\n" foreach in $colServices;
+
+