#!/usr/bin/env perl
use warnings;
use 5.012;
use Time::HiRes qw(sleep);
use Curses;
    
initscr();
noecho();           
cbreak(); 
nodelay( 1 );

sub done { endwin(); say "@_"; exit; }

sub my_print {
	my @data = `ps aux 2>&1`;
	for my $i ( 0 .. $LINES - 1 ) { 
		addstr( $i, 0, $data[$i] || ' ' x $COLS );
		sleep 0.1;
		refresh();
		
	} 
}

my $timeout = 2;

my_print();

while ( 1 ) {
	my ( $in, $out ) = ( '', '' );
	vec( $in, fileno( STDIN ), 1 ) = 1;        
	my $retval = select( $out = $in, undef, undef, $timeout );

	if ( $retval == -1 ) { 
		die "select-error"; 
	}
        elsif ( $retval ) {
		while ( ( my $key = getch() ) ne ERR ) { 
			done( "See ya" ) if $key eq 'q';
		} 
        } else {
		my_print();
	}
}