Select Code to Download

#!/usr/bin/perl
use warnings;
...
@wwn = join (":", @wwn);
print "@wwn\n";  
}

C:\Users\Documents\perl\practice>perl wwn.pl
Enter the wwn: 10000000ABCDEFAB
...
q

C:\Users\ugrankar\Documents\perl\practice>