#!/usr/bin/perl use strict; no warnings; require "mampf.pl"; if (defined &brat) { print "NO! I'm veggie!\n"; *brat = sub { print 'Tofu!!!' }; } brat();