#!/usr/bin/env perl

use strict;
use warnings;
use Shipwright;
use Shipwright::Script;
use Cwd;

local $SIG{INT} = sub { warn "Stopped\n"; exit; };

my $cwd = getcwd;
Shipwright::Script->dispatch();
chdir $cwd;