##
BEGIN {
require Expect::Quick Prompt;
import Prompt => [ -re => '^\$\s+' ], REMOTE => 'user@example.com';
}
##
##
use Expect::Quick;
connect Prompt => [ -re => '^\$\s+' ], REMOTE => 'user@example.com';
send 'command param1 param2';
my $resp = before;
...;