Christian Walde (Mithaldu) wchristian

Why does your site not link to perl.org?!

Recently an article was published that claimed Perl usage in websites had dropped below 1%. For a Perl developer this seems ridiculous on the face of it. As it turned out, it was ridiculous, since the error margin was 17.6%. Meaning that for 17.6% of the sites they surveyed they could not even detect that they were using Perl. And they only survey the top 1 million, out of the 175 million active sites Netcraft reported. So the validity of these numbers is highly suspect.

So, all is fine? Catastrophe averted? Heh, not really.

Here's the issue: To a Perl developer this might seem ridiculous. Most of us are aware of how many websites use it under the hood. But to the average person it seems perfectly reasonable. The suffixes ".php" and ".asp" are ubiquitous and lets everyone know what the website is running on. Ruby and Python operations are proud of using their languages and flaunt i

	Subject: Ihre Bestellung vom 31.01.2012 12:55:58 (meepmoopmarp.at)
	MIME-Version: 1.0
	Content-Type: text/plain; charset=UTF-8
	Content-Transfer-Encoding: 8bit
	To: [email protected]
	From: [email protected]
	X-Email-Sender-From: [email protected]
	X-Email-Sender-To: [email protected]
	Lines: 133

	use strict;
	use warnings;

	use Alien::Base::ModuleBuild;

	my $builder = Alien::Base::ModuleBuild->new(
	module_name => 'Alien::GSL',
	dist_abstract => 'Easy installation of the GNU Scientific Library',
	license => 'perl',
	configure_requires => {

	use strictures;

	package Web::SimpleX::Helper::ActionWithRender;

	use Sub::Exporter::Simple 'action';
	use Try::Tiny;
	use Scalar::Util 'blessed';

	sub action {
	my ( $action, $view ) = @_;

	use strict;
	use warnings;

	package Parallel::Downloader;

	=head1 SYNOPSIS

	use HTTP::Request::Common qw( GET POST );
	use Parallel::Downloader 'async_download';

	#!perl

	use strict;
	use warnings;

	=pod
	Plack/Session
	=cut

	# to make sure method calls generated by those aren't left uncovered

	use DBI;
	my $d = DBI->connect( "DBI:mysql:database=cpanstats;hostname=localhost", 'root', 'passwordhere', { RaiseError => 1 } );
	$d->do( 'this should die' );
	die if $DBI::errstr;

	ppm uninstall DBD-mysql
	ppm install DBD-mysql

	package Hidden;
	sub session { {} }
	1;