Select Code to Download

#!/usr/bin/env perl -l
use warnings;
...
    my @return = $exp->expect(4, 'fifth');
    print "restart=$restart -> \@return = ", join ', ', map { $_ // '<
+undef>' } @return;
}