sub info()
 {
    my $nick = $_[0];
    my $reply = $_[1];
    my $val = admin($nick);
    if ($reply =~ /a/) {
        if ($val == 1) {
    @info;
    foreach my $n(@info){
        writ1("$n");    
    }
  }
}
else {
    if ($val == 1){
        @info;
    foreach my $n(@info){ 
        writ1("$n");    
     }
   }
else {
   pm($nick,"^B^C4,1[x] Not auhtorized to see this!^C^B");
     }
  }
}