get some bus info

1 files changed, 17 insertions, 0 deletions

diff --git a/bus.pl b/bus.pl
new file mode 100644
index 0000000..ba82c4b
--- /dev/null
+++ b/bus.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.014;
+use LWP::Simple;
+use URI;
+use URI::QueryParam;
+
+my $base = URI->new('http://countdown.api.tfl.gov.uk/interfaces/ura/instant_V1');
+
+$base->query_form({
+    StopPointName => 'Hotspur Road',
+    #Towards => 'Islip Manor',
+    ReturnList => 'StopID,StopCode1,VisitNumber,TripID,VehicleID,LineID,LineName,DirectionID,DestinationText,DestinationName,EstimatedTime',
+});
+
+say get($base);