#!/usr/bin/perl -w
# $Id: keydetect,v 1.4 2001/08/28 23:31:01 btrott Exp $

use strict;

use Crypt::Keys;

my $file = shift or die "usage: keydetect <keyfile>";

my $type = Crypt::Keys->detect( Filename => $file );
print $type ? $type->{Description} : "Unknown format", "\n";