[gimp-perl] Return values, display new image.

[Ed J <edj src gnome org>]

commit e8497b48bbc82b1acdde51333b08feb103a4cbb0
Author: Ed J <edj src gnome org>
Date:   Thu May 1 21:41:06 2014 +0100

    Return values, display new image.

 examples/stampify |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/examples/stampify b/examples/stampify
index 2aad9b1..e686e27 100755
--- a/examples/stampify
+++ b/examples/stampify
@@ -46,6 +46,7 @@ podregister {
   my $float = gimp_edit_paste($layer1, 0);
   gimp_floating_sel_anchor($float);
 # and return command to The Gimp.
+  Gimp::Display->new($img2);
   return $img2;
 };
 exit main;
@@ -74,6 +75,8 @@ image, perforations may look strange. Test alternatives!
 
 =head1 RETURN VALUES
 
+  [PF_IMAGE, 'image', 'Return image'],
+
 =head1 IMAGE TYPES
 
 *