Select Code to Download

#!/usr/bin/perl
use Getopt::Long;
...
=back

=cut

perl ./fruit.pl -f apple,orange -a eat -g
perl ./fruit.pl --fruit banana -action sell
...