Frage zu packages

[Connie]

Hier noch das Beispiel, das das erwartete Ergebnis liefert:

  
#!/usr/bin/perl -w  
  
$var1 = "main";  
print "main:$var1<br>";  
  
  
package p1;  
$var1 = "p1";  
print "p1:$var1<br>";  
  
package p2;  
$var1 = "p2";  
print "p2:$var1<br>";  
  
package main;  
print "main:$var1<br>";  

~~~