SEQ=`jot 10 1 10`
for i in $SEQ
 echo $i
done

Получим

1
2
3
4
5
6
7
8
9
10

А если вот так, то

SEQ=`jot 10 10 1`

10
9
8
7
6
5
4
3
2
1

Первая[10] цифра, это число цифр, которые нужно напечатать, вторая[1] – первый элемент, третья[10] – последний элемент. Т.е. jot сам построит последовательность из 10 цифр с равным шагом, чтобы пройтись от 1 до 10.

seq в Linux несколько проще,

seq FIRST INCREMENT LAST

Напишам небольшую сетевую службу, которая будет принимать сообщение от пользователя и отвечать на него принятой строкой. Если в строчке, полученной от пользователя будет только одна точка, то службы завершит свою работу.

#!/usr/bin/perl -w
use strict;

$| = 1;
while( my $line =  )
{
    $line =~ s/\r?\n$//;
    if ($line =~ /^\.$/)
    {
    die "shutting down\n";
    }
    print "You send to me: $line\n";
}

Из интересного здесь $| = 1 , эта специальная переменная, которая управляет сбросом буферов вывода на диск. Если она установлена в 0, то интерактивной работы у нас не получится.
Теперь нужно настроить xinetd. Я не стал с ним разбираться, взял настройки от ftp. Создаем файл /etc/xinet.d/my-service

service my-server
{
        disable = no
        flags = REUSE
        socket_type = stream
        instances = 5
        wait = no
        user = root
        server = /root/my-service.pl
}

Далее прописываем в /etc/services строчку:

my-server       3333/tcp

Дальше достаточно перезапустить xinetd.