use strict ; use warnings ; use Win32::Process::Info ; use Data::Dumper; foreach ( (Win32::Process::Info->new( )->GetProcInfo )[-1]) { print Dumper($_); print '*'x75, "\n"; } __END__ $VAR1 = { 'QuotaPagedPoolUsage' => 123, 'ParentProcessId' => 7984, 'ProcessId' => 5568, 'Caption' => 'perl.exe', 'OwnerSid' => 'S-1-5-21-3545305261-4160602198-2318032092-1001', 'ExecutablePath' => 'C:\\Strawberry\\perl\\bin\\perl.exe', 'Status' => undef, 'Owner' => 'QUEST\\Brent', 'WindowsVersion' => '6.3.9600', 'ThreadCount' => 6, 'WriteTransferCount' => '0', 'HandleCount' => 151, 'TerminationDate' => undef, 'VirtualSize' => '81350656', 'SessionId' => 2, 'UserModeTime' => '0.21875', 'OtherTransferCount' => '136620', 'OtherOperationCount' => '4717', 'KernelModeTime' => '0.203125', 'InstallDate' => undef, 'PageFaults' => 4153, 'PeakPageFileUsage' => 8484, 'Name' => 'perl.exe', 'PageFileUsage' => 8484, 'OSCreationClassName' => 'Win32_OperatingSystem', 'PrivatePageCount' => '8687616', 'PeakVirtualSize' => '81350656', 'QuotaPeakNonPagedPoolUsage' => 12, 'PeakWorkingSetSize' => 15336, 'OSName' => 'Microsoft Windows 8.1|C:\\Windows|\\Device\\Harddisk0\\Partition4', 'Priority' => 8, 'QuotaNonPagedPoolUsage' => 12, 'MinimumWorkingSetSize' => 200, 'MaximumWorkingSetSize' => 1380, 'CSCreationClassName' => 'Win32_ComputerSystem', 'CSName' => 'QUEST', 'QuotaPeakPagedPoolUsage' => 123, 'ReadOperationCount' => '86', 'Description' => 'perl.exe', 'Handle' => '5568', 'WriteOperationCount' => '0', 'CreationDate' => 1530731971, 'ExecutionState' => undef, 'CommandLine' => '"C:\\Strawberry\\perl\\bin\\perl.exe" "C:\\usr\\pm\\Win32\\win32processinfo_noargs.pl" ', 'ReadTransferCount' => '375821', 'CreationClassName' => 'Win32_Process', 'WorkingSetSize' => '15704064' }; ***************************************************************************