#!/bin/bash 
 
if [ "$2" = "-c" ]; then 
	compgen -c -o default $1 
else 
	compgen -o default $1 
fi

 
use POSIX qw(:termios_h); 
 
while (1) { 
    my $ch = getchar(); 
    # Do some cool stuff; 
    last if $ch eq "\n"; 
} 
 
 
sub getchar { 
        my $fd_stdin = fileno(STDIN); 
        my $term = POSIX::Termios->new(); 
        $term->getattr($fd_stdin); 
        my $oterm = $term->getlflag(); 
        my $echo = ECHO | ECHOK | ICANON; 
        my $noecho = $oterm & ~$echo; 
        my $key = ''; 
        $term->setlflag($noecho); 
        $term->setcc(VTIME, 1); 
        $term->setattr($fd_stdin, TCSANOW); 
        sysread(STDIN, $key, 1); 
    	$term->setlflag($oterm);  
    	$term->setcc( VTIME, 0); 
    	$term->setattr($fd_stdin, TCSANOW);  
        return $key; 
}