package includee;
my $SHAREDVARIABLE1;
sub sharedvariable1 {
  $SHAREDVARIABLE1 = $_[0] if defined $_[0];
  $SHAREDVARIABLE1
}
1;