Perl code - 4 lines

Link:

Perl, pasted on Jan 19:

use strict;
use warnings FATAL => 'all';

print 13 == "13LarryWallTest" ? 'Perl' : 'Not Perl';

Output:

1	Argument "13LarryWallTest" isn't numeric in numeric eq (==) at line 4.