Select Code to Download

$e_pilot = $frm_current->Entry(
            -textvariable    => \$CURRENT{PILOT_FIELD},
...
...
$f = retrieve('FEEDS_FILE') or warn "unable to retrieve FEEDS from FEE
+D_FILE$! \n" unless defined $f;
%CURRENT = %{$f};

        $e_cs_search->configure( -textvariable=>\$CURRENT{PILOT_FIELD}
+ );
        $mw->update;