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

MAIN:
{
	binmode(STDOUT, ":utf8");
	binmode(STDERR, ":utf8");
	binmode(STDIN, ":utf8");
	foreach my $arg (@ARGV) {
		utf8::decode($arg);
	}
	print "Number of arguments: ", scalar(@ARGV), "\n";
	print "Program Name: ", "CmdLineArgs1\n";
	print "Arg 1: ", $ARGV[0], "\n";
	print "Arg 2: ", $ARGV[1], "\n";
	print "Arg 3: ", $ARGV[2], "\n";
	print "Arg 4: ", $ARGV[3], "\n";
}