#!/usr/bin/perl -w
BEGIN { $SIG{__WARN__} = sub {
    warn @_ if $_[0] !~ /^Constant subroutine/;
} }
sub FOO() { 23 }
sub FOO() { 42 }