my $wwn;
do {
  print "Enter the wwn: ";
  chomp ($wwn=<STDIN>);
  my @wwn = unpack ("(a2)*", lc($wwn));
  @wwn = join (":", @wwn);
  print "@wwn\n";  
} until ($wwn eq "q");