#!/usr/bin/perl

use strict;
use warnings;

my ($local, $root, $domain);
BEGIN {
  $local++ if $ENV{HTTP_HOST} =~ m|localhost|;
  if ($local){
    $root = q{/www/local};
  }
  else{
    $root = q{/path/on/webhoster/htdocs};
  }
  $domain = q{sw/admin};
}

use lib (
  qq{$root/lib},
  qq{$root/$domain/lib},
);

use Article;

# rest of script...