#!/usr/bin/perl -w

use strict; 

my $name;
print "Enter your name: ";
chomp( $name = <STDIN> );
print "Hi $name\n";

&Greeting;


sub Greeting
{
 my $name;
 print "Hi $name!";
}