Получить время с Windows на PERL (Пользуясь только Perl без запуска внешних программ)

[alonefox]

Задача: получить время с Windows (SAMBA) сервера
Делаю на Perl. Получаю время в "формате /bin/date" с помощью

Код: Выделить всё

my $tm = qx/net time system -I $ip/;
print $tm;

Вывод:

Код: Выделить всё

113017562009.48

Задача: Реализовать это на Perl, без запуска внешних программ.
Заранее спасибо.

[Crazy]

Попробуй Time::Local и Time::localtime
http://perldoc.perl.org/Time/Local.html http://perldoc.perl.org/Time/localtime.html

[NickLion]

Если не поможет вот это: http://opennet.ru/man.shtml?topic=Net::Tim...3&russian=3 http://perldoc.perl.org/Net/Time.html, то копайте протокол SMB.