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();