Select Code to Download

#!/usr/bin/perl

...
my ($result, $x, $y) = (0, 0, 1);
($result, $x, $y) = ($result + ($y & 1 ? 0 : $y), $y, $x + $y) while $
+y <= 4e6;
print "result $result\n";

result 4613732