my $key = $ARGV[1] || 'secretkey';
my %HoA=();
open IN, '<','passmgr.dat' 
   or die ("The file cannot be opened!");
while (<IN>){
  chomp;
  my ($sitename,$id,$enc_password,$url) = split "\t",$_;
  my $password = ST2614::decode($enc_password, $key);
  $HoA{$sitename} = [$id,$password,$url];
  # print "$sitename $id $password $url\n";
}