#!/usr/bin/perl

use strict;
use warnings;

print STDOUT "What is your name? : ";
chomp ( my $name = <STDIN> );
print STDOUT "Hello, $name!\n";

exit;