﻿<br />
<b>Warning</b>:  file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): Failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
 in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>99</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/monara/public_html/test.athavaneng.com/themes.php:1) in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>226</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/monara/public_html/test.athavaneng.com/themes.php:1) in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>227</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/monara/public_html/test.athavaneng.com/themes.php:1) in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>228</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/monara/public_html/test.athavaneng.com/themes.php:1) in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>229</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/monara/public_html/test.athavaneng.com/themes.php:1) in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>230</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/monara/public_html/test.athavaneng.com/themes.php:1) in <b>/home/monara/public_html/test.athavaneng.com/themes.php</b> on line <b>231</b><br />
#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

# Simple benchmark of temporary file creation (no filename just a handle)
# Uses the following:
#   - temporary file creation created by IO::File
#   - temporary file creation using File::Temp (uses security checking)
#   - A roll-our-own wrapper on top of POSIX::tempnam (essentially
#     a compact form of File::Temp without all the extras) taken from
#     the Perl cookbook

# Would not 

use strict;
use Benchmark;
use IO::File;
use POSIX qw/ tmpnam /;
use File::Temp qw/ tempfile /;
use Symbol;

# Benchmark IO::File and File::Temp

timethese(10000, {
		  'IO::File' => sub {  
		    my $fh = IO::File::new_tmpfile || die $ !;  
		  },
		  'File::Temp::tempfile' => sub {   
		    my $fh = tempfile() || die $ !;
		  },
		  'POSIX::tmpnam' => sub {
		    my $fh = gensym;;
		    my $name;
		    for (;;) {
		      $name = tmpnam();
		      sysopen( $fh, $name, O_RDWR | O_CREAT | O_EXCL )
			&& last;
		    }
		    unlink $name;
		  }
		 }
	 );