Select Code to Download

use Win32;
my $user = Win32::LoginName();

use strict;
use warnings; 
...

do_table("Win32_Process");