Select Code to Download

#!/usr/bin/perl

...
@wwn = join (":", @wwn);
print "@wwn\n";  
}

C:\Users\Documents\perl\practice>perl wwn.pl
Use of uninitialized value $wwn in string eq at wwn.pl line 5.
...
q

C:\Users\Documents\perl\practice>