while ( chomp( my $opt = <STDIN> ) ) {
	&{ $options{ $opt } || $options{ '' } }()
		or last;
}