#!/usr/bin/perl -w
use strict;
use Gtk2 -init;

my $manager = Gtk2::RecentManager->new;

my $uri = "file://" . $^X;
$manager->add_item ($uri);

Glib::Idle->add (sub { Gtk2->main_quit; });
Gtk2->main;
