diff --git a/perl/perl.awk b/perl/perl.awk
index 47198f1c..18285d87 100644
--- a/perl/perl.awk
+++ b/perl/perl.awk
@@ -27,7 +27,7 @@ BEGIN {
   print "init (CLASS)";
   print "\tchar *CLASS;";
   print "CODE:";
-  print "\tRETVAL = glibtop_calloc (1, sizeof (glibtop *));";
+  print "\tRETVAL = glibtop_calloc (1, sizeof (glibtop));";
   print "\tglibtop_init_s (&RETVAL, 0, 0);";
   print "OUTPUT:";
   print "\tRETVAL";