以下是示例代码，我们使用Perl语言编写脚本来在给定目录中搜索特定单词。

#!/usr/bin/perl

use strict;
use warnings;

# 输入要搜索的单词
print "请输入要搜索的单词： ";
chomp(my $word = );

# 输入要搜索的目录
print "请输入要搜索的目录： ";
chomp(my $directory = );

# 打开目录进行搜索
opendir (DIR, $directory) or die $!;

# 遍历目录内的文件
while (my $file = readdir(DIR)) {

    # 跳过.和..文件
    next if ($file =~ m/^\./);

    # 对于文件类型为文件，而不是目录
    if (-f "$directory/$file") {

        # 打开文件
        open (FILE, "<", "$directory/$file") or die $!;

        # 一行一行地读文件
        while (my $line = ) {

            # 如果行中包含给定单词，则输出该行和文件路径
            if ($line =~/$word/) {
                print "$directory/$file: $line";
            }
        }

        # 关闭文件
        close (FILE);
    }
}

# 关闭目录
closedir (DIR);

这个脚本首先要求用户输入要搜索的单词和要搜索的目录。然后，它打开目录并遍历其内部的所有文件。在每个文件中，它打开文件并逐行读取文件内容。如果发现行中包含要搜索的单词，则输出该行和文件路径。 最后，关闭文件和目录。