use strict; my $user= 'World'; sub greet { my $user; print "Hello, $user"; }; greet();