$codereference = sub {print shift};

$codereference->("Hello!\n");