-- def_macro hello
my $name = shift || "world";
print "Hello $name!";