[gtk-vnc] Add Perl example program using GTK3

[Daniel P. Berrange <dberrange src gnome org>]

commit 925047d970668b153c0edec2d5dae77298213080
Author: Daniel P. Berrange <berrange redhat com>
Date:   Thu Nov 10 15:19:49 2011 +0000

    Add Perl example program using GTK3

 examples/gvncviewer.pl |   16 ++++++++++++++++
 1 files changed, 16 insertions(+), 0 deletions(-)
---
diff --git a/examples/gvncviewer.pl b/examples/gvncviewer.pl
new file mode 100755
index 0000000..d2a09c0
--- /dev/null
+++ b/examples/gvncviewer.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use Gtk3 -init;
+Glib::Object::Introspection->setup(basename => 'GtkVnc', version => '2.0', package => 'GtkVnc');
+Glib::Object::Introspection->setup(basename => 'GVnc', version => '1.0', package => 'GVnc');
+
+GVnc::util_set_debug(1);
+
+my $win = Gtk3::Window->new ('toplevel');
+my $dpy = GtkVnc::Display->new();
+
+$win->set_title("GTK-VNC with Perl");
+$win->add($dpy);
+$dpy->open_host("localhost", "5900");
+$win->show_all; 
+Gtk3::main;