#!/usr/bin/perl -w

my $hrs = `date -u +%H`;
my $mins = `date -u +%M`;

$hrs += ($mins / 60);

my $long = (15 * $hrs) - 180;

system("xplanet -config /home/ross/.xplanet/xplanet.conf -hibernate 120 -output /home/ross/wallpaper/earth/earth.jpg -geometry 1680x1250 -projection mercator -longitude $long");

system("/home/ross/scripts/getclouds.sh");