sub FOO(){23}; 
BEGIN{eval sprintf 'delete $%s::{FOO}', __PACKAGE__}
sub FOO(){42};