use Getopt::Long;GetOptions("german" => \$german, "french" => \$french);if ($german) { print "Guten Tag!\n";}if ($french) { print "Bonjour!\n";}if (!$german && !$french) { print "Hello!\n";}