Рассмотрим по шагам эту работу. Для начала определяем константы TRUE и FALSE, далее указываем на файл в котором хранятся зашифрованные пароли. Получаем данные с формы (хотя их можно получить разными способами). Далее пытаемся открыть файл с паролями и в случае успеха предварительно блокируем файл и после считывает информации из него снимаем блокировку и закрываем. В цикле производим перебор строк из файла и в той строке где находим имя пользователя, а когда находим стандартной функцией crypt() шифруем принятый пароль и сверяем в случае успеха возвращаем TRUE, в противном FALSE.

Вот листинг:

use constant TRUE => 1;
use constant FALSE => 0;

sub auth
{
	my $file = "file.pass";
	$upass = $form{'password'};
	$uname = $form{'login'};
	open (SHADOW, "<$shadow") or die "Internal system error: $!";
	flock (SHADOW, 2) or die "Internal lock error: $!";
	@shadows=;
	flock SHADOW, 8;
	close SHADOW;
	foreach $line(@shadows)
	{
		chomp($line);
		($cuser, $cpass, $r) = split /\t/, $line, 3;
		if ($cuser eq $uname)
			$spass = $cpass;
		if ( crypt ($upass, $spass) eq $spass)
			return TRUE;
		else
			print FALSE;
	}
}

Следует учитывать, что данный метод не является самым безопасным, помните самое главное — не запускайте никакие программы от имени суперпользователя (root), так как это чревато самыми разными последствиями.

chomp — удаляет последний символ строки в том случае, если он является символом новой строки. Пример использования:

@Data=<STDIN>;
foreach(@Data)
{
	chomp;
	print if /^From:/;
}

chop — удаляет последний символ строки и возвращает строку. Пример:

$_ = 'hello!';
chop;
print; # выведет hello

crypt — используется для однонаправленного шифрования строки. Принимает 2 аргумента. Первый шифруемая строка, второй — соль. Данная функция может быть использована скажем при регистрации, для форм входа и тд. Пример:

@saltair = ('A'..'Z', 'a'..'z', '0'..'9');
$salt = $saltair[rand(@saltair)] . $saltair[rand(@saltair)];
$crypted_password = crypt($plain_password, $salt);

index — производит поиск заданной подстроки в строке, возвращает позицию символа и значение -1 в случае неудачи. Пример:

index('Hello!', '!');

lc — в заданной строке преобразует все прописные буквы в строчные.
lcfirst — в заданной строке преобразует первую букву в строчную. Как и для функции lc если используется use local, то используются текущие настройки локализации.
lenght — вычисляет длину строки.
rindex — производит поиск заданной подстроке в строке, в обратном порядке. Возвращает позицию символа или значение -1 в случае неудачи.
substr — извлекает из заданной строки, начиная с заданного символа подстроку заданной длинны. Чтобы было понятней пример:

$sub_str = substr($string, $position, $length);

Параметр $position может принимать как положительные так и отрицательные значения. В случае присвоения отрицательного значения отчет происходит от конца строки. Параметр $length, при необходимости, может быть пропущен.
uc — действует аналогично lc, но преобразует все строчные буквы в прописные.
ucfirst — действует аналогично lcfirst. преобразую первую букву строки в прописную. При использовании use local применяются текущие настройки локализации.

На этом описание строковых функций Perl можно считать завершенным.

Приступим к описанию тэга table и связанных с ним тэгов. Как правило, обычная таблица выглядит следующим образом:

<!-- Начало таблицы -->
<table>
	<!-- Начало строки -->
	<tr>
		<td><!-- Ячейка таблицы --></td>
	<!-- Конец строки -->
	</tr>
<!-- Конец таблицы -->
</table>

Тэг table обладает следующими параметрами:

• align — горизонтальное выравнивание текста в таблице. Принимает следующие значения:
• left — по левому краю
• center — по центру
• right — по правому краю
• background — задает фоновую картинку или цвет заливки ячейки.
• border — толщина рамки таблицы.
• bordercolor — цвет заливки рамки таблицы и используется только вместе с параметром border.
• cellspacing — расстояние между рамками смежных ячеек.
• cellpadding — отступ от рамки до текста(данных).
• frame — при помощи этого атрибута можно задать видимость рамок таблицы. Вот список его параметров:
• above — только верхняя рамка.
• bellow — только нижняя рамка.
• hsides — только верхняя и нижняя рамка.
• lhs — только левая рамка.
• rhs — только правая рамка.
• vsides — только левая и правая рамка.
• height — высота таблицы.
• rules — позволяет задавать отображение линий внутри таблицы(рамки ячеек):
• all — линии отображаются между строками и столбцами.
• cols — линии отображаются между столбцами.
• groups — линии отображаются между группами <thead> <tbody> <tfoot>.
• none — линии не отображаются (по умолчанию).
• rows — линии отображаются между всеми строками.
• valign — вертикальное выравнивание текста в таблице. Принимает следующие значения:
• top — по верхнему краю.
• middle — по центру
• bottom — по нижнему краю.
• width — ширина таблицы.

<!-- Начало таблицы -->
<table>
        <caption>Заголовок</caption>
	<!-- Начало строки -->
	<tr>
		<td><!-- Ячейка таблицы --></td>
	<!-- Конец строки -->
	</tr>
<!-- Конец таблицы -->
</table>

Как видно из примера данный тэг всегда располагается внутри таблицы. Подпись всегда центрирована по горизонтали находится над таблицей. У тэга присутсвует только один параметр:

• align — расположение подписи. Принимает значения:
• top — над таблицей. Данное значение по умолчанию
• bottom — под таблицей.

<table>
	<thead>
		<tr>
			<th>Заголовок 1</th>
			<th>Заголовок 2</th>
		</tr>
	</thead>
	<tbody>
		<tr>
			<td>Значение 1</td>
			<td>Значение 1</td>
		</tr>
	</tbody>
	<tfoot>
		<tr>
			<td colspan="2">Объединённый результат</td>
		</tr>
	</tfoot>
</table>

Рассмотрим вышеприведённые тэги:

• thead (table head) — указывает на то, что данные в этих ячейках не содержится, как правило здесь располагаются заголовки колонок таблицы.
• tr (table row) — обозначает строку таблицы. 
• th - в данном случает указывает на ячейку заголовка. данный тэг используется только в теге thead.
• tbody (table body) — обозначает тело таблицы.
• td (table data) — указывает на ячейки данных. Следует у данного тэга отметить 2 параметра:
• rowspan — объединяет строки(склеивает)
• colspan — объединяет столбцы
• tfoot (table footer) — «подвал» таблицы используется для сводных данных