#!/usr/bin/perl

use common::sense;
use Glib qw/TRUE FALSE/;

$SIG{'SIGRTMIN+5'} = \&on_sig;

my $loop = Glib::MainLoop->new( 'default', FALSE );
$loop->run;

sub on_sig {
	my $sig = shift;
	say "somebody told me $sig";
}