#!/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";