sub Usage() { my $err = shift and select STDERR; print <