#!/usr/bin/perl -w
sub FOO() { 23 }
BEGIN { no warnings 'misc'; undef &FOO if ! @ARGV }
sub FOO() { 42 }