#!/bin/bash
install -d -m 0775 orig
cp $1 orig/$1.orig.`date +%m-%d-%H.%M`
sed -e "s/^M//g" $1 >oooo
mv -f oooo $1 

if (crypt($entered_passwd,substr($crypted_passwd,0,2)) eq $crypted_passwd)
{ # Пароль верен } else { # Пароль не верен } 

# Calculate salt value for crypt function
@saltair= split //,"ABCDEFGHIJKLMNOPQRSTUVWXYZ
 abcedfghijklmnopqrstuvwxyz0123456789./";
sub get_salt {
srand();
$iOff = int(rand($#saltair));
$iOff2 = int(rand($#saltair));
return join("",$saltair[$iOff],$saltair[$iOff2]);
}

$crypted_passwd = crypt($plain_passwd,get_salt()); 

print "WWW-Authenticate: Basic realm=\"что то там\"\n";
print "Status: 401 Unauthorized\n\n";
print "Ошибка авторизации!\n";

RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule ^(.*) - [E=HTTP_CGI_AUTHORIZATION:%1]

use MIME::Base64;
$ENV{HTTP_CGI_AUTHORIZATION} =~ s/basic\s+//i;
($REMOTE_USER,$REMOTE_PASSWD) = split(/:/,decode_base64($ENV{HTTP_
CGI_AUTHORIZATION}));

print "Content-type: image/gif\n"; # Для JPEG будет
print "Content-length: 7256\n\n";
open (IMG1,"image.gif");
binmode IMG1;
binmode STDOUT;
print ;
close (IMG1);

use CGI qw/:standard/;
# Код для формы
print "Content-Type: text/html\n\n";
print < 
<'head'><'title'>file upload<'/title'><'/head'>

<'form method="post" enctype="multipart/form-data" action="upload.pl"'>
<'input type="file" name="picture"'>
<'input type="submit" name="Submit" value="Submit"'>



EOF

if(param()){&insert_image(1);}
sub insert_image
# путь к директории для закачки
$downpath = "download/";
my $in=param('picture');

# выделяем имя файла из параметра
@fname = split(/\\/,$in);
$kk = @fname;
$name = $fname[$kk-1];

open OUT, (">$downpath$name");
binmode(OUT);
# читаем входной поток и пишем в файл (файл в binmode!!!)
le(<$in>){
print OUT $_;
}
close(OUT);

# выводим надпись о закачке файла <$name>
print "<'h2'>Upload file: $name<'/h2'>";
};

  cd module-0.01

  README    - что это за модуль
  INSTALL    - как его поставить
  Makefile.PL  - перловый скрипт для генерации Makefile
Обычно инсталляция происходит следующим образом:
  perl Makefile.PL - генерация Makefile
  make all  - сборка модуля
  make test  - тестирование модуля
  make install  - инсталляция модуля

  mkdir ~/lib
  mkdir ~/lib/perl5

  perl Makefile prefix=$HOME

  artur@disco:~ (681) ls -alFg ~/lib/perl5/
  total 704
  drwxr-sr-x   8 artur    staff        512 Oct 06 15:53 ./
  drwxr-sr-x   9 artur    staff       1024 Oct 08 10:50 ../
  drwxr-sr-x   4 artur    staff        512 Mar 31 1998  aix/
  drwxr-sr-x   2 artur    staff        512 Aug 06 13:40 CPAN/
  -r--r--r--   1 artur    staff     126951 Jul 24 19:37 CPAN.pm
  drwxr-sr-x   3 artur    staff        512 Mar 31 1998  man/
  drwxr-sr-x  31 artur    staff       1024 Sep 09 15:41 site_perl/

  perl -I$HOME/lib/perl5 -I$HOME/lib/perl5/site_perl script.pl

  для sh (bash,zsh,ksh)
  PERL5LIB=$HOME/lib/perl5:$HOME/lib/perl5/site_perl
  export PERL5LIB
  для csh (tcsh)
  setenv PERL5LIB $HOME/lib/perl5:$HOME/lib/perl5/site_perl

  use lib "/home/you/lib/perl5";
  use lib "/home/you/lib/perl5/site_perl";

     Основы          perldata, perlvar, perlsyn, perlop, perlsub
     Запуск          perlrun, perldebug
     Функции         perlfunc
     Objects         perlref, perlmod, perlobj, perltie
     Data Structures perlref, perllol, perldsc
     Modules         perlmod, perlmodlib, perlsub
     Regexps         perlre, perlfunc, perlop, perllocale
     Moving to perl5 perltrap, perl
     Linking w/C     perlxstut, perlxs, perlcall, perlguts, perlembed
     Various         http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html
                     (not a man-page but still useful)


     perl          О перле вообще
     perldelta     Что нового в последней версии перла
     perlfaq       FAQ
     perltoc       Подробное оглавление ко всей документации
     perldata      Типы данных
     perlsyn       Синтаксис языка
     perlop        Арифметические, логические, строковые
                     операции и их приоритет
     perlre        Регулярные выражения (обработка текста и поиск)
     perlrun       Опции командной строки
     perlfunc      Встроенные функции
     perlvar       Специальные переменные
     perlsub       Как писать свои функции (процедуры)
     perlmod       Устройство и принцип работы модулей
     perlmodlib    Модули: создание собственных библиотек
     perlmodinstall Поиск и установка модулей и библиотек на CPAN
     perlform      "Форматы", или шаблоны для выводимых данных
     perllocale    Поддержка интернационализации
     perlref       Ccылки и указатели на данные
     perldsc       Введение в структурные типы данных
     perllol       Структуры данных: массивы и списки
     perltoot      Введение в объектно-ориентированное
                     программирование
     perlobj       Объекты в перле
     perltie       Связь объектов с обыкновенными переменными
     perlbot       Perl OO tricks and examples
     perlipc       Связь между процессами: pipes, sockets,
                     сигналы и др.
     perldebug     Отладка программ
     perldiag      Сообщения об ошибках
     perlsec       Вопросы безопасности
     F
     perltrap      Возможные грабли и ловушки
     perlport      Как писать портабельные программы
     perlstyle     Стиль программирования на перле
     perlpod       Формат стандартной документации и документация,
                     встраиваемая в исходные тексты программ
     perlbook      О книгах про перл

     --- (для совсем крутых) ---

     perlembed     Способы внедрения перл-программ в программы на C/C++
     perlapio      Собственный API, использумый в исходниках перла
     perlxs        XS -- программирование перловских библиотек,
                     используемых вместе с библиотеками на C
     perlxstut     Учебник по XS
     perlguts      Внутренние функции перла для разработчиков
     perlcall      Соглашения о вызове перловских функций из C
     perlhist      История и полный список всех версий перла

sub get_image_spec {
        # Возвращает ($Тип_изображения, $ширина, $высота)
        my $buf = $_[0];
        my ($type, $width, $height);
        if (unpack("n", $buf) == 0xffd8) {
                return ('jpeg', 0, 0); # Про jpeg я пока не знаю как
                # определить его размеры
        } elsif (unpack("A4", $buf) eq "GIF8") {
                my ($type, $width, $height) = unpack("A6 v v", $buf);
                return ('gif', $width, $height);
        }
}

read(STDIN, $buf, 120);

print join (", ", get_image_spec($buf));

    (-s "file.txt") размер файла
    -e              существует ли файл
    -w              доступен ли на запись
    -M              количество дней со дня модификации
    -t              является ли терминалом

        ----
        open MAIL, '|/path/to/your/sendmail -t'; # Pipe к sendmail
        print MAIL "From: [email protected]\n",
                   "To: [email protected]\n",
                   "Subject: Wow! I got some mail for you!!!\n\n",
                    $message;
        close MAIL;
        -----

package MyModule;
require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(идентификаторы для экспорта:
подпрограммы, имена переменных и
пр.);
# Теперь после того, как вы напишите
#use MyModule в своей программе, у вас все
# упомянутые здесь идентификаторы станут видны.
# Этот метод не рекомендуется,
# так как вы "засоряете" именное пространство программы.

# И/или
@EXPORT_OK = qw(идентификаторы для экспорта:
#подпрограммы, имена переменных и
пр.);
# Идентификаторы, прописанные здесь будут видны
# в Вашей пргорамме как
# MyModule::Идентификатор (подпрограммы) или
#$MyModule::Идетификатор
# (переменные)
# Или, Вы можете написать use MyModule
#qw(Ид1 Ид2 $Ид3); и все будет как в
# первом случае. Это рекомендуемый вариант.

... ваши подпрограммы и пр ....

1; # Обязательно
# конец МойМодуль

Программа, его используящая:
use MyModule qw(...);
# Ну и далеее

       $char = ;
        Установить 15й символ строки $string:
         = 'A';

   Можно даже использовать болле чем односимвольные последовательности:

        $ss = ;

         = 'Хо-Хо';
		 

perl myscript.pl

Personal Web Server из поставки Win9x
Sambar, http://www.sambar.com/
Apache-W32, http://www.apache.org/

      // - поиск
    s/// - поиск и замена
   tr/// - трансляция
   Если мы хотим узнать, нет ли в строке
   $_ подстроки 'my', мы пишем:
   /my/;
   Если мы имеем дело не с переменной по
   умолчанию, а с любой другой,   пишем:
   $str=~/my/;
   Если мы хотим заменить в строке подстроку
   tree на root, используем   поиск и замену:
   $str=~s/tree/root/;

   $str=~s/\s\d+\s/\s1\s/g;

    use locale;
    use POSIX qw (locale_h);
    setlocale(LC_CTYPE, 'ru_RU.KOI8-R');

    use locale;
    use POSIX qw (locale_h);
    setlocale(LC_CTYPE, "Russian_Russia.1251"); # или "Russian_Russia.866"

    tr/\xB3\xE0-\xFF/\xA3\xC0-\xDF/;            # для KOI8-r

или

    tr/\xA8\xC0-\xDF/\xB8\xE0-\xFF/;            # для Windows-1251

или

    tr/\xF0\x80-\x9F/\xF1\xA0-\xAF\xE0-\xEF/;   # для CP-866

   opendir DIR,'/tmp';
   @files=readdir DIR;
   closedir DIR;

или

   opendir DIR,'/tmp';
   while $file (readdir DIR)
   {
   }
   closedir DIR;

   opendir DIR,'/tmp';
   @files=grep !/^\.+$/,readdir DIR;
   closedir DIR;

   opendir DIR,/tmp';
   @dirs=grep {!/^\.+$/ and -d "/tmp/$_"} readdir DIR;
   closedir DIR;

-rwxr-xr-x

в первой строке нет или неправильно указан путь к perl.
обычно это
#!/usr/local/bin/perl или #!/usr/bin/perl

Файл со скриптом содержит DOS-овые концы строк 0x0D 0x0A.
В юниксе конец строки - только 0x0A. Чтобы исправить это,
воспользуйтесь соотв. возможностью редактора FAR, или при
закачке скрипта на ftp используйте ASCII-режим вместо бинарного.

Скрипт не выводит ничего во время работы. Hеобходимо,
чтобы он выводил хотя-бы content-type заголовок, например:


   print "Content-type: text/html\n\n";
   print "All done";

Обратите внимание на двойной перевод строки в конце заголовка.
Если у вас нет доступа к логу ошибок сервера, для отладки
скрипта используйте директиву

use CGI::Carp qw (fatalsToBrowser);
В этом случае при фатальной ошибке, приводящей к завершению скрипта,
 эта ошибка будет видна вам в браузере.
 

   use CGI;
   use DBI;
   use strict;
   use что-там-еще-надо

   &main;

   sub main {
      my $cgi=new CGI;

      ....

   }

   sub some_more_sub {
     ...
   }

Как сделать так, чтобы скрипт работал в фоновом режиме, как демон?

Варианта два. Первый - воспользоваться модулем Proc::Daemon, второй - сделать все самому, примерно так:

use strict;
require 'sys/syscall.ph';

# Устанавливаем путь по умолчанию
$ENV{PATH} = '/bin:/usr/bin';

# Чисто для прикола
$0='mydaemon';

# Отделяемся от родителя
fork() && exit;

# Отключаемся от терминала
close STDOUT; close STDERR; close STDIN;

# Делаем корень текужим каталогом
chdir '/';

# Создаем новую сессию и становимся лидером
# группы процессов, чтоб нас случайно не прибили
syscall(&SYS_setsid);

# Перехватываем сигналы, для корректного выхода
$SIG{'INT'} = $SIG{'QUIT'} = $SIG{'TERM'} = 'quit';
$SIG{'HUP'} = 'ignore';

# Делаем наши темные дела
...

# Выходим
quit();

sub quit {
  # Помещаем сюда код для корректного
  # прекращения работы
  ...
  exit(0);
}

Если Вы хотите написать демона, реализующего работу через сеть, рекомендуем ознакомиться с модулем Net::Daemon.

Как сдеалать так, чтобы программа гарантированно работала только в одном экземпляре?

Способ первый, принятый в мире Unix:

$pidfile = '/var/run/mydaemon.pid';

if (-e $pidfile) {
  # aha, pid file is here, but process could be dead by now
  my $myfile=file_name($0);
  unless (open(PIDFILE,$pidfile)) {
    # too dangerous to start because I can't read old PID
    exit 1;
  }
  my $oldpid=;
  close PIDFILE;
  # see if there is a process with such pid
  if ($oldpid > 1 && kill(0,$oldpid)) {
    # another proccess is running already
    exit 1;
  } else {
    # that process is long dead
  }
}

# write pid file
open (PID, ">$pidfile") or die;
print PID $$;
close(PID);

# do some work
...

# remove pid file
unlink $pidfile;
exit(0);

Способ второй, основанный на блокировании файлов:
# make a lock
$lockfilename="/tmp/mydaemon.lock";
unless (open (LOCKFILE,">$lockfilename")) {
  die "cannot open lock file\n";
}
unless (flock (LOCKFILE,LOCK_EX|LOCK_NB)){
  print "my copy is already running\n";
  exit(0);
}

# do some work
...

# unlock lock file
close(LOCKFILE);
unlink($lockfilename);

            

Где взять версию Perl для Windows?

Perl для Windows можно взять на web-сайте Active State Tool Corp. - http://www.activestate.com. Дополнительные пакеты (DBI, GB, MD5, LWP) для Perl под Windows - http://www.activestate.com/PPMpackages/. Полезные советы по работе с Perl под Windows (настройка работы под MS IIS, работа с ADO и ODBC) можно посмотреть на Robin's Perl for Win32 pages.

Как инсталлировать дополнительные модули Perl для Windows?

Вариант I - инсталляция из сети:

В состав поставки ActivePerl входит инструмент для инсталляции пакетов Perl Package Manager (PPM). Для инсталляции необходимого Вам пакета нужно запустить PPM, например, в ДОС сессии, набрав команду

C:\>ppm

после этого можно инсталлировать нужный пакет (модуль):

install <имя_модуля>

(пример: install DBD-CSV)

PPM установит его и пропишет в прилагаемый файл документации.

Вариант II - инсталляция скаченного пакета (модуля):

Вам нужно разархивировать скаченный модуль. После этого найти файл, соответствующий названию пакета и имеющий расширение '.ppd', и набрать команду:

ppm install <файл с расширением .ppd

(пример: ppm install libwin32.ppd)

PPM также позволяет Вам паковать свои собственные модули в PPM-пакеты. Дополнительная информация о том, как это сделать, и о том, где взять необходимые для этого программы nmake, tar и gzip содержится в руководстве по ActivePerl в разделе 'ActivePerl Components' -> 'PPM' -> 'How do I make a PPM package?'

Как сконфигурировать Микрософт IIS 4.0 для работы с ActivePerl?

Частичный перевод раздела ActivePerl FAQ - Web Server Config из руководства, поставляемого вместе с ActivePerl.

Чтобы настроить IIS или PWS 4.0, для запусков сценариев Perl сделайте следующее:

1. Запустите IIS 4.0 Internet Service Manager.
2. Выберите нужную Вам папку (уровень) в дереве директорий из которой будут запускаться Ваши приложения. Вы можете выбрать сервер целиком, веб-сервер, или создать виртуальную директорию.
3. Выберите пункт из меню.
4. ...
5. Нажмите кнопку . Запуститься диалоговое окно конфигурации.
6. Выбор закладку и нажмите . Запуститься диалог настройки приложений.
7. Для того, чтобы запускать Perl как приложение CGI, наберите полный путь к Perl.EXE и добавьте в конце %s %s. При запуске Perl сценария в первый %s будет подставляться полный путь на сценарий, а во второй %s -параметры сценария.
8. Для запуска Perl для ISAPI, наберите полный путь на PerlIS.DLL. Указывать %s %s в этом случае не требуется.
9. В качестве расширения для приложений (в поле ), укажите .pl или .plx (или то, которое Вы хотите использовать для ваших Perl сценариев).
10. Настройка теперь завершена. Нажмите <ОК> и нажмите еще раз <ОК> для сохранения изменений.
11. Закройте IIS 4.0 Internet Service Manager. Так как IIS работает как сервис, Вы должны убедиться в том, что файлы и переменные окружения доступны для него (возможно, Вам придется перезапустить сервис).

Комментарии:

1. Пункты 4, 5, 6 описывают какое из окон появиться при выборе сервера целиком, веб - сервера и виртуальной директории.
2. Рекомендую также посмотреть http://www.geocities.com/SiliconValley/Park/8312/perlis.htm - ответы на проблемы с Microsoft Webserver. Там приводятся указания по самостоятельной настройке реестра, описываются различия в работе CGI и ISAPI и т.п.

Как получить значение переменной по имени?

Как получить значение переменной, имя которой записано в другой переменной?

Пример 1:

 $var1 = 'lalala';
 $var2 = 'var1';
 $res = ${$var2};

            

Значение $res будет - lalala

Пример 2 (посложнее):

 $complex_var = 'qqqq';
 $simplex_var = 'zzzz';
 $modifier = 'complex';
 $result = ${"${modifier}_var"};

            
Значение $result будет - qqqq



            

Можно ли скомпилировать из Perl исполняемый файл?

Вы можете воспользоваться программой Perl2Exe. Это утилита для преобразования Perl сценариев в выполняемые файлы, не требующие присутствия интерпретатора языка Perl.

Perl2Exe может сгенерировать модули для Win32 и многих клонов Unix.

Perl2Exe также позволяет Вам создавать не консольные программы, с использованием Tk.

Разработчик - IndigoSTAR Software. "Домашняя страница"

Еще один продукт IndigoSTAR Software - SendMail for Windows(TM) - Windows версия популярной программы Unix Sendmail. Она позволяет отправлять сообщений из командной строки, CGI сценария или BAT-файла.

А как мне проверить соответствие введенного пароля зашифрованному?

Первых два символа пароля соджержат шифровальный ключ. Если взяв их зашифровать проверяемый пароль, то зашифрованные строки должны совпасть. Пример:

if (crypt($entered_passwd,subst($crypted_passwd,0,2))
  eq $crypted_passwd) {
# Пароль верен
} else {
# Пароль не верен
}


            

Как получить статистику по файлу (время создания, изменения и т.п.)?

Как минимим двумя способами!

Вариант 1:

if (-e $filename) { print "Файл существует.\n"; }
if (-z $filename) { print "Файл существует с нулевым размером.\n"; }
if ($size = -s $filename) { print "Файл существует, размер $size.\n"; }

if (-r $filename) { print "Файл может мной читаться.\n"; }
if (-w $filename) { print "Файл может мной исправляться.\n"; }
if (-x $filename) { print "Файл может исполняться.\n"; }
if (-o $filename) { print "Файл мой!\n"; }

if (-f $filename) { print "Файл - это файл.\n"; }
if (-d $filename) { print "Файл - это каталог.\n"; }
if (-l $filename) { print "Файл - это символическая ссылка.\n"; }
if (-p $filename) { print "Файл - это FIFO.\n"; }
if (-S $filename) { print "Файл - это сокет.\n"; }
if (-b $filename) { print "Файл - это блок-ориентированный файл.\n"; }
if (-c $filename) { print "Файл - символьное спец. устройство.\n"; }
if (-t $filename) { print "Файловый манипулятор открыт для терминала.\n"; }

if (-u $filename) { print "У файла установлен бит setuid\n"; }
if (-g $filename) { print "У файла установлен бит setgid\n"; }
if (-k $filename) { print "У файла установлен бит запрета (бит-липучка)\n"; }

if (-T $filename) { print "Файл - текстовый.\n"; }
if (-B $filename) { print "Файл - двоичный.\n"; }

$modific_time = int(-M $filename);
print "возраст файла (с момента изменения) в днях $modific_time.\n";
$access_time = int(-A $filename);
print "дней с последнего чтения файла $access_time.\n";
$ctime = int(-C $filename);
print "возраст изменения файлового дескриптора в днях $ctime";

Вариант 2:

Воспользоваться функцией stat

stat FILEHANDLE
stat EXPR

stat возвращает список из 13-ти элементов. Параметры FILEHANDLE - дескриптор, или EXPR - название. Если EXPR опускается, это равносильно вызову stats `$_.

В случае неудачи возвращает пустой список.

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

где:

    0 dev      device number of filesystem
    1 ino      inode number
    2 mode     file mode  (type and permissions)
    3 nlink    number of (hard) links to the file
    4 uid      numeric user ID of file's owner
    5 gid      numeric group ID of file's owner
    6 rdev     the device identifier (special files only)
    7 size     total size of file, in bytes
    8 atime    last access time in seconds since the epoch
    9 mtime    last modify time in seconds since the epoch
    10 ctime    inode change time (NOT creation time!) in seconds since the epoch
    11 blksize  preferred block size for file system I/O
    12 blocks   actual number of blocks allocated

Модуль File::stat обеспечивает удобный, механизма доступа к файлам по именам:

Примеры:

    ($READ_TIME, $MOD_TIME) = (stat($filename))[8,9];
    $READ_TIME = localtime($READ_TIME);
    $MOD_TIME = localtime($MOD_TIME);
    print "\n последнее обращение к $filename- $READ_TIME";
    print "\n последнее изменение $filename- $MOD_TIME";

    $mode = (stat($filename))[2];
    printf "Права доступа к файлу %04o\n", $mode & 07777;

Как можно стандартизировать (оформить в виде процедуры) получение выборки из БД, чтобы получать набор записей с именованными полями?

Это можно сделать так:

sub QueryArrayOfHashes

  my ($DB, $query) = @_;
  my ($result,$data_hash,@items,$key,$val,%hash);

  $result = $DB->prepare($query);
  $result->execute or return;
  while ($data_hash=$result->fetchrow_hashref)

    %hash=%$data_hash;
    push @items,{%hash};
  }
  $result->finish;
  @items;
}

Комментарии:

$data_hash - ссылка на хэш

%$data_hash == %{$data_hash} - получение самого хэша из ссылки

{%hash} = разименованный хэш - чтоб получился массив хэшей, а не просто один массив

@items в данном случае == return @items

Пример использования:

use DBI;
...
$dbh=DBI->connect('DBI:mysql:mysql:localhost', $user, $password,
                    {RaiseError => 1})
            or die "connecting : $DBI::errstr\n";

@res = QueryArrayOfHashes($dbh, "select user, password from user");
for ($i=0; $i<=$#res; $i++) {
    print "\n[Record #$i]::\n";
    foreach $key (sort keys %{$res[$i]}) {
        # запись вида $a[1]{b} эквивалентна $a[1]->{b}
        print  $key, "\t", $res[$i]{$key}, "\n";
    }
}

$dbh->disconnect;

Как мне сделать аутентификацию на Перле, а не средствами веб-сервера?

Для того, чтобы браузер выдал запрос логина и пароля, скрипт должен выдать следующие заголовки:

print "WWW-Authenticate: Basic realm=\"что то там\"\n";
print "Status: 401 Unauthorized\n\n";
print "Ошибка авторизации!\n";

При этом "что то там" - это имя области авторизации, по правилам для области с одним именем должен всегда срабарывать один и тот же пароль. Проблема заключается в том, что ответ пользователя сидит в заголовке HTTP-запроса, в поле Authorization, которое скрипту через переменные окружения не передаётся. Для сервера Апаче эта проблема решается прописыванием в файле конфигурации следующих строк:

RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule ^(.*) - [E=HTTP_CGI_AUTHORIZATION:%1]

Всё что он делает - это добавляет в переменную окружения HTTP_CGI_AUTHORIZATION, в которую пишется содержимое HTTP заголовка Authorization, таким образом означенное поле становится доступным для анализа внутри скрипта. Формат этого поля следующий: "login:password", причём эта строка закодирована в Base64, получить эти составляющие можно так:

use MIME::Base64;
$ENV{HTTP_CGI_AUTHORIZATION} =~ s/basic\s+//i;
($REMOTE_USER,$REMOTE_PASSWD) =
  split(/:/,decode_base64($ENV{HTTP_CGI_AUTHORIZATION}));

Как сделать upload картинки через форму?

В случае, если вам не претит воспользоваться модулем CGI, это будет выглядеть примерно так:

use CGI qw/:standard/;

# Код для формы
print "Content-Type: text/html\n\n";
print <<EOF;
<html><head><title>file upload</title></head>
<body>
<form method="post" enctype="multipart/form-data" action="upload.pl">
<input type="file" name="picture">
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
EOF

insert_image() if (param());

sub insert_image {
  # путь к директории для закачки директория
  # должна иметь право на запись для
  # пользователя, под которым работает веб-сервер
  my $downpath = "download/";

  my $in=param('picture');

  # выделяем имя файла из параметра
  my ($name) = $in =~ m#([^\\/:]+)$#;

  open(OUT,">$downpath$name");
  binmode(OUT);
  # читаем входной поток и пишем в файл
  while (<$in>) {
    print OUT $_;
  }
  close(OUT);

  # выводим надпись о закачке файла <$name>
  print "<h2>Upload file: $name</h2>";
}