#! /usr/bin/perl
#
# test program

use strict;
use warnings;

my $name = "権兵衛";

print "私の名前は、$nameです。\n";