pointless() in Perl

js/scheme/perl/ruby/C - この世で最も役に立たない関数をPerlで：

#!perl
use strict;
use warnings;

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

pointless;
pointless;

結果：

Turning off myself = 0x8CEABCC
Undefined subroutine &main::pointless called at pointless.pl line 11.