Hamster activity print

hamster-what.pl

#!/usr/bin/perl -w
#

use strict;
use Net::DBus;

eval {
  my $bus = Net::DBus->find;
  my $hamster = $bus->get_service("org.gnome.Hamster");
  my $hamster_manager = $hamster->get_object("/org/gnome/Hamster","org.gnome.Hamster");
  my $acct = $hamster_manager->GetCurrentActivity();
  if ($acct) {
    print "$acct\n";
  } else {
    print "No Activity\n";
  }
};
print "Hamster not present\n" if ($@);