Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
#!/usr/bin/perl -w
use v5.14;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 1, -clear_on_exit => 1);
for my $second (reverse(1..2)) {
$cui->status("Attaching to TMUX in $second second(s)\n Press CTRL-C to avoid TMUX");
sleep 1;
$cui->status("Starting TMUX...");
system("tmux attach");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.