How create a time object of VBS in perl?

Xiao Yafeng <[email protected]>
Newsgroups gmane.comp.lang.perl.active-perl
Message-ID <[email protected]>
Hi,
   Could you tell me how create a time object of VBS in perl? Below
statement define a starting time and pass it to the getdata function to get
data in VBS:

start_time = DateSerial( 2003, 01, 31) + TimeSerial( 6, 0, 0)
data_array = lpd.getdata(id, start_time)

But I don't know how to translate it into perl.
Since I intend to rewrite all vbs scripts, it will be a big problem!
How?
Any replies are really appreciated!
TIA.

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.