要在Perl中搭建一个交互式环境，您可以使用模块Term::ReadLine来实现。以下是一个简单的示例代码：

use strict;use Term::ReadLine;my $term = Term::ReadLine->new('Interactive Perl');while (defined(my $line = $term->readline('> '))) {print "You typed: $line\n";$term->addhistory($line);}

在这个示例中，我们首先导入Term::ReadLine模块，然后创建一个Term::ReadLine对象。在一个无限循环中，我们使用readline方法从用户那里接收输入，并将输入打印出来。我们还使用addhistory方法将用户的输入添加到历史记录中，以便用户可以使用上下箭头键来访问之前输入过的命令。

您可以将这段代码保存到一个文件中，然后在终端中运行它。您将看到一个交互式提示符（>），您可以在这里输入命令，并按回车键来执行它们。您还可以使用上下箭头键来访问之前输入过的命令。