#!/usr/bin/perl

use strict;
no warnings;

require "mampf.pl";

if (defined &brat) {
   print "NO! I'm veggie!\n";
   *brat = sub { print 'Tofu!!!' };
}
brat();

#!/usr/bin/perl

sub brat {
   print "wurst\n";
}

1;