#!/usr/bin/env perl

use strict;
use warnings;

use File::Spec;
use Cwd 'realpath';

use FindBin;
FindBin::again();

my $backend =
  File::Spec->catfile(
    (File::Spec->splitpath(
      realpath(File::Spec->catfile( $FindBin::RealBin, $FindBin::RealScript ))
    ))[1],
  'netdisco-backend');

exec {$backend} 'netdisco-backend', @ARGV;