C:\test>perl -E"eval q[ exit(); BEGIN{ system 'echo oops!' }]"
oops!