#!perl

use Win32::MMF::Shareable;

my $Var2;
tie $Var2, "Win32::MMF::Shareable", "Var2", {namespace => "test"};
print "Var2 is \"$Var2\"\n";