#!/usr/bin/perl -w
use strict;

package R;
my $R = 10;
use vars qw( $var );
$var = 20;

package main;
print "R is >>$R<<\n";

package R;
print "R is >>$R<<\n";
print "var is >>$var<<\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;

{
package R;
my $R = 10;
use vars qw( $var );
$var = 20;
}

package main;
print "R is >>$R<<\n";
print "var is >>$R::var<<\n";

package R;
print "R is >>$R<<\n";
print "var is >>$var<<\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
{
package R;
my $R = 10;
use vars qw( $var );
$var = 20;
}
package main;
# print "R is >>$R<<\n";
print "var is >>$R::var<<\n";
package R;
# print "R is >>$R<<\n";
print "var is >>$var<<\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;

{
package R;
my $R = 10;
use vars qw( $var );
$var = 20;
sub show_R { $R };
}

package main;
print "var is >>$R::var<<\n";
print "var is ", R::show_R(), "\n";

package R;
print "var is >>$var<<\n";
print "var is ", show_R(), "\n";