...
sub COMPTO {
    my ($optname, $value) = @_;
    print "\nGenerate Output for option -$optname : value=$value\n";
}

__END__
$ ./888928.pl -c foo

Generate Output for option -c : value=foo