The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;

use Net::Songkick;

my $user = shift || 'davorg';
my $sk = Net::Songkick->new({
  api_key => $ENV{SONGKICK_API_KEY}
});

my $evnts = $sk->get_upcoming_events({
  user => $user,
});

print "\n";

foreach (@$evnts) {
  print $_->start->strftime('%A %d %B %Y'), "\n";
  print ' ', $_->performances->[0]->artist->displayName;
  print ' at ', $_->venue->displayName, "\n\n";
}