package TestTie;
sub TIESCALAR{
  my $pkg=shift;
  my $obj=[] ;
  bless $obj, $pkg;
  return $obj;
}
package main;
my $t=9;
tie $t , 'TestTie';