Win32 Functions In Perl.

this script should show you how to use the Win32 Function in perl :D
enjoy.

#!/usr/bin/perl

use Win32 ;

print "\nPC-Name:\t" ;
print Win32::NodeName();

print "\nDomain:\t" ;
print Win32::DomainName();

print "\nFilesystem:\t" ;
print scalar Win32::FsType();

print "\nArchitectur:\t" ;
print Win32::GetArchName();

print "\nChip:\t\t" ;
print Win32::GetChipName();

print "\nWorkDir.:\t" ;
print Win32::GetCwd();

print "\nOS:\t" ;
print Win32::GetOSName();

print "\nMilliSeconds:\t" ;
foreach (1..5) {
print Win32::GetTickCount(), " ";
Win32::Sleep 25 ;
}

print Win32::MsgBox('16',16), "\n";
print Win32::MsgBox('17',17), "\n";
print Win32::MsgBox('34',34), "\n";
print Win32::MsgBox('51',51), "\n";
print Win32::MsgBox('68',68), "\n";
print Win32::MsgBox('Flags auf 64+5',69), "\n";