#!/usr/bin/perl
# your code goes here

$\ = "\n";

sub fnc {
	print "fnc";
}

&fnc();

*main::fnc = sub {
	print "modified";
};

&fnc();