#!/usr/bin/perl

$Loc = 1;
$Code = "print \"\$Loc\\n\"; exit if (\$Loc>3); \$Loc++; eval \$Code;";
eval $Code;