#!/usr/bin/env perl

use strict;
use warnings;

my $name;
print "苗字を入力して下さい>>>";
$name = <STDIN>;
chomp $name;
$name .= ' ';
print "名前を入力して下さい>>>";
$name .= <STDIN>;

print $name;