my $file = shift @ARGV;
  die "Backup filename '$file' should end in .kba or .kba.gz.\n"
    unless $file =-~ /kba\.gz$/ or $file =~ /\.kba$/;
  die "File '$file' does not exist.\n" 
    unless -e $file;