P:\test>perl -le" print 1; $var = 'foo'; goto 'CASE'.($var+0); CASE0: print 2;"
1
2