P:\test>perl -wle"fork; print 'inner'; print 'outer';"
inner
outer
inner
outer