#!/usr/bin/perl
use warnings;
use strict;
my $wwn = 0;
until ( $wwn eq "q")
{
print "Enter the wwn or q to quit: ";
chomp ($wwn=<STDIN>);
my @wwn = unpack ("(a2)*", lc($wwn));
@wwn = join (":", @wwn);
print "@wwn\n";  
}