#!/usr/local/bin/perl
use strict;
use warnings;


$name = "安藤";
$old = 16;

print $name, "=", $old, "¥n";