sub usage
{
  my $spaces = " " x ((length $0) + 7);
  print "Usage: $0 <some args....>\n";
  print $spaces . "<some more args>\n";
  exit;
}