Thx for you help, but i still have the same problem.
my $labelproxy = $frameproxy -> Label(-text=>"\nProxy:") -> pack();
my $proxyentry = $frameproxy -> Entry(-width => 23,-textvariable=>\$oi
+) -> pack();
$proxystatus = $oi;
my $chkproxyon = $frameproxy -> Radiobutton(-text=>"ON",-selectcolor =
+> green,
-value=>\$proxystatus, -variable=>\$radio) -> pack();
my $chkproxyoff = $frameproxy -> Radiobutton(-text=>"OFF",-selectcolor
+ => green,
-value=>"semproxy", -variable=>\$radio) -> pack();
When i print $radio, choosing "off" its ok, print in screen "semproxy", but when i choose ON, instead print my variable "$proxystatus" i got "REF(0x9e0d730)"