#!/usr/local/bin/perl/

chomp $input = <SDTIN>;

print "Your name is $input!";