diff --git a/Examples/perl5/class/example.h b/Examples/perl5/class/example.h
index 46d901361..b0671d583 100644
--- a/Examples/perl5/class/example.h
+++ b/Examples/perl5/class/example.h
@@ -33,6 +33,14 @@ public:
   virtual double perimeter(void);
 };
 
+typedef Square TSquare;
+class CFoo
+{
+public:
+    static Square MakeSquare(void) {return Square(4.0);};
+    static TSquare MakeTSquare(void) {return Square(4.0);};
+};
+
 
 
 
diff --git a/Examples/perl5/class/runme.pl b/Examples/perl5/class/runme.pl
index b69d83ec0..076e1437b 100644
--- a/Examples/perl5/class/runme.pl
+++ b/Examples/perl5/class/runme.pl
@@ -52,5 +52,9 @@ $c->DESTROY();
 $s->DESTROY();
 
 print $example::Shape::nshapes," shapes remain\n";
-print "Goodbye\n";
 
+$square = example::CFoo::MakeSquare();
+$tsquare = example::CFoo::MakeTSquare();
+print "Areas ", $square->area(), " ", $tsquare->area(),"\n";
+
+print "Goodbye\n";