#! perl
use strict;
use warnings;

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

package main;

:::::::x();

##</code><code>##

23:01 >perl 405_Obfu.pl
Bareword "::::::" refers to nonexistent package at 405_Obfu.pl line 27.
Invalid version format (non-numeric data) at 405_Obfu.pl line 17, near "package ::::"
syntax error at 405_Obfu.pl line 17, near "package :::::"
Execution of 405_Obfu.pl aborted due to compilation errors.

23:02 >