Select Code to Download

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