12 lines
285 B
Perl
12 lines
285 B
Perl
|
my $name = "Raimo";
|
||
|
|
print "$name\n";
|
||
|
|
{
|
||
|
|
print "My name is $name\n";
|
||
|
|
my $name = "my name";
|
||
|
|
print "Now name is $name\n";
|
||
|
|
my $love = "another name";
|
||
|
|
print "My love is $love.\n";
|
||
|
|
}
|
||
|
|
print "$name is back.\n";
|
||
|
|
print "$love.\n";
|