diff --git a/bindings/perl/Sigar.xs b/bindings/perl/Sigar.xs
index c56fe21d..f96cbbda 100644
--- a/bindings/perl/Sigar.xs
+++ b/bindings/perl/Sigar.xs
@@ -30,6 +30,8 @@ typedef sigar_file_system_usage_t * Sigar__FileSystemUsage;
 typedef sigar_proc_stat_t * Sigar__ProcStat;
 typedef sigar_net_route_t * Sigar__NetRoute;
 typedef sigar_net_interface_stat_t * Sigar__NetInterfaceStat;
+typedef sigar_who_t * Sigar__Who;
+typedef sigar_thread_cpu_t * Sigar__ThreadCpu;
 
 /* Perl < 5.6 */
 #ifndef aTHX_
diff --git a/bindings/perl/typemap b/bindings/perl/typemap
index 2110f638..9a5ff1d5 100644
--- a/bindings/perl/typemap
+++ b/bindings/perl/typemap
@@ -26,6 +26,8 @@ Sigar::FileSystemUsage T_PTROBJ
 Sigar::ProcStat T_PTROBJ
 Sigar::NetRoute T_PTROBJ
 Sigar::NetInterfaceStat T_PTROBJ
+Sigar::Who T_PTROBJ
+Sigar::ThreadCpu T_PTROBJ
 
 OUTPUT
 T_NETADDR