Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    $total += eval join '+', @roll ;
}}}}
print $total/6**4