#!/usr/bin/env perl6

    sub MAIN(*@filename) {
        for @filename -> $file {
            my $bag = $file.IO.slurp.words.Bag;
            say "$file: { [+] $bag.values } words";
            CATCH { default { say "Unable to count words in $file"; } }
        }
    }

ref: http://www.reddit.com/r/cpp/comments/369lcn/can_c_become_you...