wx.pl

#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

# Variables for temperature, humidity, wind direction, speed, gust and pressure
my $temperature;
my $humidity;
my $winddirection;
my $windspeed;
my $windgust;
my $pressure;

# RegEx match count
my $count;

# Convert month into 2 digit format
my $month = sprintf("%02d", ((localtime)[4] + 1) % 100);

# Convert day into 2 digit format
my $day = sprintf("%02d", (localtime)[3] % 100);

# Convert hour into 2 digit format
my $hour = sprintf("%02d", (localtime)[2] % 100);

# Convert minute into 2 digit format
my $minute = sprintf("%02d", (localtime)[1] % 100);