#!/usr/bin/env perl use strict; use warnings; require 5.8.0; use DateTime; use FixMyStreet::App; use Open311; use Open311::GetServiceRequestUpdates; my $start_time = DateTime->now->subtract( days => 1, hours => 1 ); my $end_time = DateTime->now; my $updates = Open311::GetServiceRequestUpdates->new( start_date => $start_time, end_date => $end_time, ); $updates->fetch;