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