#!/usr/local/bin/perl
use strict;
use warnings;
print "Hello¥n";
print STDOUT "こんにちは¥n";

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

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