Select Code to Download

#!/usr/bin/perl -w

...
    print "\nAnagrams of $_:\n";
    print "  $_\n" foreach @words;
}

use strict;

...
}

1;