perl -e '*s1=sub{&s2};*s2=sub{print"Hello,Daniel\n"};&s1'