9 lines
191 B
Perl
9 lines
191 B
Perl
|
sub printem
|
||
|
|
{
|
||
|
|
my $string1 = shift;
|
||
|
|
return sub {my $string2 = shift; print "$string1 $string2\n";};
|
||
|
|
}
|
||
|
|
$hellosub = printem("Hello");
|
||
|
|
&$hellosub("today.");
|
||
|
|
&$hellosub("there.");
|