#!/usr/bin/perl use strict; use warnings; sub pointless{ printf "Turning off myself = 0x%X\n", \&pointless; undef &pointless; }; pointless; pointless;