common.pm sub return_address{ print "rose garden"; } ... 1;