#!/usr/bin/env perl
use strict;
use warnings;
use App::Termcast;
# PODNAME: termcast
# ABSTRACT: broadcast your terminal sessions for remote viewing

=head1 SYNOPSIS

  termcast [options] [command]

=head1 DESCRIPTION

Runs C<command> (or a shell, if the command isn't given), while broadcasting it
to a termcast server. See L<App::Termcast> for options documentation.

=cut

my $tc = App::Termcast->new_with_options;
my @argv = @{ $tc->extra_argv };
push @argv, ($ENV{SHELL} || '/bin/sh') if !@argv;
$tc->run(@argv);