#! /usr/bin/perl

use strict;

print "\$> = ", $>, "\n";

$> == 1000 and warn "eq";

print "\$> = ", $>, "\n";


##</code><code>##

$> = 0

eq at evil.pl line 5.

$> = 1000