sub Check_Single_Option { ( $opt_name, $opt_value, $regex ) = @_; if ( $opt_value !~ $regex ) { die "Ungueltiges Argument fuer $opt_name\n"; } else { return $opt_value; } } GetOptions( "Verify=s" => sub { Check_Single_Option( @_, qr/^[^-/ ) }, ) or exit 255;