#!/usr/bin/perl -w

use strict;
print "Hello, I am Komodo what is your name? ";
$name = <STDIN>;
chomp $name;
print "Hello, $name!\n";