#!/usr/local/bin/perl
use strict;
use warnings;
 
my $score = 85;
if ($score = 85) {
    print ("OK!");
}