#!/usr/bin/perl -w

use strict;
use Spy;

my ($Var1,$Var2);

tie $Var1,'Spy','Var1';
tie $Var2,'Spy','Var2';

($Var1,$Var2)=(37332,666);
print "Assigning \$Var2 to \$Var1, result: ", $Var1=$Var2,"\n";

# Humming 'Twilight Zone'

for $Var2 (1..5)
{
 $Var1=$Var2;
 print STDERR "$Var1\n";
 $Var2="Test";
};

print "$Var2\n";