#!/usr/bin/perl

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

BEGIN {
  use vars qw($VERSION $PID);
  $VERSION = '0.01';
  $PID = "/var/run/test.pid";

  # create our running pid file
  open PID, "> $PID";
  print PID $$;
  close PID;

  # check we are the latest version
  my $content = get("http://www.someurl.com/software/$0");
  die "Couldn't get it!" unless defined $content;

  # can we eval $content to get $VERSION?
  $SERVER_VERSION = 0;
  print "Server version: $SERVER_VERSION\n";
  print "Local version: $VERSION\n";

} # end-begin

# cleaning up
END {
  `rm -f /$PID`;
} # end-end

exit;