use strict;
use Getopt::Long;

my $result = GetOptions (
          "c=s" => \&COMPTO,
          '<>' => sub {print "\nThat is not a valid parameter\n";},
	);

sub COMPTO {print "\nGenerate Output for <some string> \n";}