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);