my $chan  = $SSH2 -> channel();
    
	$chan -> blocking(0);
    $chan -> shell();
    
	print $chan "ls -la\n";
    print "LINE : $_" while <$chan>;
	
    print $chan "who\n";
    print "LINE : $_" while <$chan>;
	
    print $chan "date\n";
    print "LINE : $_" while <$chan>;