use strict;

my $user= 'World';

sub greet {
    print "Hello, $user";
};

greet();