<?php 
  ini_set('display_errors',1); 
  if (isset($_SERVER['HTTPS'])) { 
  	session_start(); 
  	print "ssl =".$_SERVER['HTTPS']; 
  		if (isset($_GET['login'])) { 
  			if (isset($_SESSION['user'])) { 
  				print 'Zaten başka bir isimle giriş yapmış bulunmaktasınız!<br/>'; 
  				print 'Bu isimle giriş yapmak için lütfen <a href="/logout.php">mevcut oturumu sonlandırınız</a><br/>'; 
  				print '<a href="/index.php"><<Geri</a>'; 
  				exit(); 
  			} 
  			elseif (!isset($_SESSION['user'])) { 
  				if (isset($_GET['user_id']) && isset($_GET['user_pass'])) { 
  					$_SESSION['user']=$_GET['user_id']; 
  					print "{$_SESSION["user"]} kullanıcı adıyla başarıyla giriş yaptınız"; 
  					header('Refresh:5; URL=/index.php'); 
  				} 
  				elseif (!isset($_GET['user_id']) && !isset($_GET['user_pass'])) { 
  					print 'Lütfen kullanıcı adı ve parolanızı girin!'; 
  				} 
  			} 
  		} 
  elseif (!isset($_SERVER['HTTPS'])) { 
  	print "ssl = off"; 
  } 
  ?>

 
  #!/usr/bin/perl 
  # 
   
  use strict; 
  use warnings; 
   
  main(@ARGV); 
   
  sub main { 
      my $greeting = "Hello World"; 
      message($greeting); 
   
  } 
   
  sub message { 
     my $message = shift or return; 
     print ("$message\n"); 
   
  }