E:\work\projects>perl
use warnings; use strict;
&TestError( 1 );
sub TestError {
  $_[0] = 2;
}
^D
Modification of a read-only value attempted at - line 4.