"$ENV{DOCUMENT_ROOT}/c55bf3fc219b9610c2b8abde2d8ed171/SAPE.pm" =~ /^(.+)$/; require $1; my $sape = new SAPE::Client( user => 'c55bf3fc219b9610c2b8abde2d8ed171', host => '<ИМЯ_ХОСТА>', # необязательно, по умолчанию: $ENV{HTTP_HOST} charset => 'windows-1251', # необязательно, по умолчанию: windows-1251 ); print $sape->get_links;