#!/perl/bin/perl

$x = "Hi, there?";
func1();
print "Main: x=$x\n";

sub func1 {
    my($x) = 200;
    print "1-a: x=$x\n";
    func2();
    print "1-b: x=$x\n";
}

sub func2 {
    print "2: x=$x\n";
    $x = "Changed by func2";
}