#!/usr/bin/perl

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

$SIG{USR1} = \&on_usr1;

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

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