#!/usr/bin/env perl
use utf8;
use strict;
use warnings;

MAIN:
{
	print "Even numbers up to 100...\n";
	for (my $i = 2; $i <= 100; $i += 2) {
		print $i, "\n";
	}
}