use Win32::API;
my $netShareGetInfo = Win32::API->new('NETAPI32', 'NetShareGetInfo', 'PPNP', 'N')
  or die "Can't initialize function";