View gcal.pl
#!/usr/bin/perl -w
use strict;
#----------------------------------------------------------
# Additional Modules
use Crypt::SSLeay;
use Data::Dumper;
use DateTime;
use Getopt::ArgvFile default => 1;
View gist:493705
use strict;
use warnings;
use List::Util qw(sum);
my %result;
while (<>) {
chomp;
my $line = $_;
my (undef, $topic, @scores) = split /\s*\|\s*/, $line;