#!/usr/bin/perl

use strict;
#use Acme::Terror::UK;
use Acme::Terror;
use DCOP;

my $t = Acme::Terror->new();
#my $s = Acme::Terror::UK->new();
my $dcop = DCOP->new();

#my $uLevel = $s->fetch();
my $level = $t->fetch();

my $current_song = $dcop->run( 'amarok player nowPlaying' );

if ($dcop->run('amarok player status') == 1) {
    $current_song = "$current_song [paused]";
}

if ($current_song) {
    print "I am currently listening to: $current_song\n";
}
print "Stay informed!  The current terrorist threat level in the US is: $level\n";
#print "Also: The current terrorist threat level in the UK is: $uLevel\n";