#!/usr/bin/perl
use warnings;
use strict;

package notify;
use constant {
    active => 2,
};
1;

package main;
use constant {
    clicked=>1,
};

print clicked . "\n";
print notify::active . "\n";

exit;