my $labelproxy = $frameproxy -> Label(-text=>"\nProxy:") -> pack();
my $proxyentry = $frameproxy -> Entry(-width => 23,-textvariable=>\$oi)  -> pack();

my $chkproxyon = $frameproxy -> Radiobutton(-text=>"ON",-selectcolor =>  green,
	-value=>\$oi,  -variable=>\$proxystatus) -> pack();

my $chkproxyoff = $frameproxy -> Radiobutton(-text=>"OFF",-selectcolor =>  green,
	-value=>"semproxy",  -variable=>\$proxystatus) -> pack();