http://qs321.pair.com?node_id=238487


in reply to Re: perlport, MSWin32 and ID column
in thread perlport, MSWin32 and ID column

Thanks, that's exactly what i needed to know.
Win32::GetOSVersion() in scalar context will get the job done :)


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g