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

sub pointless{
    printf "Turning off myself = 0x%X\n", \&pointless;
    *pointless = undef; # undef &pointless;
};

pointless;
pointless;