Perl code by kinaba - 9 lines

Link:

kinaba - Perl, pasted on Feb 20:

BEGIN {
	if( rand() > 0.5 ) {
		eval( "sub f {}" );
	} else 	{
		eval( "sub f() {}" );
	}
}

f / # / ;

Output:

1 2	syntax error at line 9, at EOF Execution aborted due to compilation errors.