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

MAIN:
{
	my $max = 5;
	if (scalar(@ARGV) == 1) {
		$max = Utils::stoiWithDefault($ARGV[0], 5);
	}
	for (my $i = 0; $i < $max; ++$i) {
		print "Hello, world!\n";
	}
}