Help for this page

Select Code to Download


  1. or download this
    package TestPackage;
    
    ...
    }
    
    1;
    
  2. or download this
    #!/usr/bin/perl -w;
    use strict;
    ...
      print "GROUP: $key\n";
      print "NAMES: ", join (' ', @{$$buddys{$key}}), "\n";
    }