#!/usr/bin/env perl

use Tak::WorldHandle;
use Tak::REPL;
use strictures 1;

my $world = do {
  if (my $ssh_target = $ARGV[0]) {
    Tak::WorldHandle->new_remote($ssh_target);
  } else {
    Tak::WorldHandle->new_local;
  }
};

Tak::REPL->new(world => $world)->run;