#!/bin/perl
# Script ex2.pl
# User greeting
print "Please enter a person's name: ";
$pname = <STDIN>;
print "A warm welcome to ",$pname;