bin/ttyrec


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl
use strict;
use warnings;

use App::Ttyrec;

@ARGV = ($ENV{SHELL} || '/bin/sh')
    unless @ARGV;

App::Ttyrec->new->run(@ARGV);