>perl -wle"sub foo; foo; sub foo { print 'Hi!' }" Hi!