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

my $pointless;
$pointless = sub {
    printf "Turning off myself = 0x%X\n", $pointless;
    undef $pointless;
};

$pointless->();
$pointless->();