#!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;