Select Code to Download

#! perl -slw
use strict;
...
    my @f = split ',';
    print if $ops{ $op }->( $f[ $f ], $c );
}