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

sub printHello {
	my ($name) = @_;
	print "Hello, ", $name, "!\n";
}

MAIN:
{
	binmode(STDOUT, ":utf8");
	binmode(STDERR, ":utf8");
	binmode(STDIN, ":utf8");
	printHello("Fred");
	printHello("Wilma");
	printHello("Barney");
	printHello("Betty");
}