pptpd и номера интерфейсов

Решали опцией unit в соответствующем файле options.pts.XXX.
Например, unit 10 в options.pts.0, unit 11 в options.pts.1 и т.д.
Вот скрипт для автоматической генерации:

#!/usr/bin/perl -w

use strict;

my $Begin  = 0;
my $End    = 254;
my $UnitOffset = 20;

for (my $Index = $Begin; $Index <= $End; $Index++) {
    my $FileName = sprintf("options.pts.%d", $Index);
    printf("Create file %s: ", $FileName);

    if (!open(OUTFILE, ">>$FileName")) {
        printf("fail!\n");
        next;
    } else {
        printf("ok.\n");
        printf(OUTFILE "unit %d\n", $Index+$UnitOffset);
        close(OUTFILE);
    };
};