C:\>type test.pl

#!/usr/local/bin/perl
use CGI ':standard';
print header();
print start_html();
open FILE, "user/test";
    for $line (<FILE>) {
    if (index $line, "gold" > -1) {
        $GoldLine=$line;
    }
}
close FILE;
sub getgold {
    my $start= index $GoldLine, ":" + 2;
    result substr $start, length $line;
}
getgold;
end_html();

C:\>perl -w test.pl

Argument "gold" isn't numeric in numeric gt (>) at test.pl line 8.
Argument ":" isn't numeric in addition (+) at test.pl line 14.
Unquoted string "result" may clash with future reserved word at test.pl line 15.
syntax error at test.pl line 15, near "result substr"
Execution of test.pl aborted due to compilation errors.

##</code><code>##

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);