Using Expect with Tidal

#!/usr/bin/perl

use strict ;
use Expect;

# if you prefer the OO mindset:
my $exp = new Expect;
my $command = 'tidal' ;

$exp->raw_pty(1);

$exp->spawn($command)
  or die "Cannot spawn $command: $!\n";
$exp->expect( undef, ('Connected to SuperDirt.') );
$exp->expect( 20, ('tidal> ') );

$exp->send("d1 \$ sound \"bd sn\"\n");

sleep 10;
exit 0;