Select Code to Download

my $cs_e1   = $seg1_f->Entry(-textvariable => \$c_speed[0], -width => 
+4,
                                                -validate => 'all',
...
  if (($val >= 0) and ($val <= 10)) {return 1}
    else{ return 0 }
}

  $rstring  = <$lfh>;
  ($c_speed[0], $c_speed[1], $c_speed[2], $c_speed[3]) = sscanf("%d %d
+ %d %d", $rstring);