open OUT, '>','passmgr.dat'
   or die ("The file cannot be opened!");
for my $sitename (sort keys %HoA){
  my $id = $HoA{$sitename}[0];
  my $enc_password = ST2614::encode($HoA{$sitename}[1], $key);
  my $url = $HoA{$sitename}[2];
  print OUT join "\t",$sitename,$id,$enc_password,$url,"\n";
}