#!c:/perl/bin/perl -w
$|++;

use strict;
use Win32::API;

Win32::API->Import('kernel32', 'GetSystemDirectoryA', 'PN', 'N');

my $systemdir = ' ' x 100;
my $len = GetSystemDirectoryA($systemdir, 100);
substr($systemdir, $len) = "";

print "System directory found at: '$systemdir'\n";
[download]