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();
[download]

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)"