$main2=MainWindow->new();
$main2->geometry("300x300"); 
$main2->title("Test Selection ");
$main2->Label(-text=>"Select the test ")->pack();
$main2->Radiobutton(-text=>"Production line ( For plotting one instrument) ",)->pack();
$main2->Radiobutton(-text=>"Pilot Phase ( For plotting multiple instruments) ",)->pack();
$main2->Button(-text => "OK",-command => [\&paramsel])->pack();