+
+ given($format) {
+ "./$basename" when [qw/C CPP PASCAL/];
+ "./$basename.exe" when 'MONO';
+ "java $basename" when 'JAVA';
+ "perl $basename" when 'PERL';
+ "python $basename" when 'PYTHON';
+ default { die "Don't know how to execute format $format" }
+ }