23

23.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $name;
my $nick;

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

print 'ニックネームを入力して下さい>>>';
$nick = <STDIN>;
chomp $nick;

print "$nameさんのニックネームは$nickです。\n";