#!perl -w
use strict;

# after the next line, error messages will be indexed 
# starting at line 300 and contain the phrase "marked_point"

#line 300 marked_point
my $some_var;
$some_var = "some_value";
blah;

##</code><code>##

Bareword "blah" not allowed while "strict subs" in use at marked_point line 302.

##</code><code>##

Missing right curly or square bracket at subroutine_save_report line 3010, at end of line