#!/usr/bin/env perl
use strict;
use warnings;

my $x;

sub greeting {
    my $str = 'Hello ' . $x;
    print $str . "\n";
}

$x = 'Kevin';

greeting ();

$x = 'chickenman';

greeting ();