#!/usr/bin/perl

use strict;
use warnings;
use Expect;

$Expect::Debug = 1;

my $timeout = 10;
...