#! perl
use strict;
use warnings;

package :::::
{
    sub x
    {
        printf "(%s)\n", __PACKAGE__;
    }
}

package main;

:::::::x();