Select Code to Download

#! /usr/bin/perl
use strict;
print "\$> = ", $>, "\n";
$> == 1000 and warn "eq";
print "\$> = ", $>, "\n";

$> = 0
eq at evil.pl line 5.
$> = 1000