Select Code to Download

my $wwn;
do {
...
  @wwn = join (":", @wwn);
  print "@wwn\n";  
} until ($wwn eq "q");