use strict;
use warnings;

# mainline--------------------------
mygreeting "world";

# subroutines ----------------------
sub mygreeting {
   my $salutation = shift;
   print "hello $salutation\n";
}