#! /usr/bin/perl

use strict;

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

$> == 1000 and warn "eq";

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