bijin-tokei.pl

#!/usr/bin/perl

use strict;
use warnings;

use Web::Scraper;
use URI;

my $scraper = scraper{
  process '//img[contains(@src,"/clk/")]', img => '@src';
};

while(1){
  my $uri = URI->new('http://www.bijint.com/jp/clocks/view/');
  if($uri) {
    my $res = $scraper->scrape($uri);
    system(sprintf('feh --bg-scale %s', $res->{img}));
  }

  sleep 60;
}