Select Code to Download

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

-- hello

-- def_macro hello
my @in = map { chomp;length($_) ? $_ :() } (@ARGV,<STDIN>);
chomp(@in);
@in = "world" unless @in;
print "Hello $_" for @in;

-- hello me
myself
I

Hello me
Hello myself
Hello I

#!/usr/bin/perl -l

...


__END__

-- def_macro eval
eval join "",<>