#!/usr/bin/env perl

use strict;
use warnings;

my $year;
my $month;
my $day;

print '誕生年を入力して下さい>>>';
$year = <STDIN>;
chomp $year;

print '誕生月を入力して下さい>>>';
$month = <STDIN>;
chomp $month;

print '誕生日を入力して下さい>>>';
$day = <STDIN>;
chomp $day;

print "あなたの誕生日は$year年$month月$day日です。\n";