use Win32::API;

Win32::API::Struct->typedef( PROCESSENTRY32  => qw{
        LONG dwSize;
        LONG cntUsage;
        LONG th32ProcessID;
        LONG th32DefaultHeapID;
        LONG th32ModuleID;
        LONG cntThreads;
        LONG th32ParentProcessID;
        LONG pcPriClassBase;
        LONG dwFlags;
        CHAR szExeFile[260];
    });

Win32::API->Import('kernel32.dll', "HANDLE CreateToolhelp32Snapshot(DWORD dwFlags,DWORD th32ProcessID)");
Win32::API->Import('kernel32.dll', "BOOL Process32First( HANDLE hSnapshot, LPPROCESSENTRY32 lppe )" );
Win32::API->Import('kernel32.dll', "BOOL Process32Next( HANDLE hSnapshot, LPPROCESSENTRY32 lppe )" );

my $TH32CS_SNAPPROCESS = 0x2;

my $Snapshot    = undef;
my $ProcessInfo = Win32::API::Struct->new('PROCESSENTRY32');

$Snapshot = CreateToolhelp32Snapshot($TH32CS_SNAPPROCESS, 0);
  
$ProcessInfo->{dwSize} = Win32::API::Struct::sizeof ($ProcessInfo);
$Sucess = Process32First($Snapshot, $ProcessInfo);
print "Fist Process : $ProcessInfo->{szExeFile}\n"; #are returning nothing