[Moscow.pm] Humor

[arto]

  #!/usr/bin/perl
  use strict;
  system("echo Starting the main script");
  system("echo Checking for perl version");

  my $hostedlocation = "./dimdimrepository/";

	my $perl = system("perl -version >> dimdimextract.log");
	if($perl != 0)
	{
		system("echo Perl not available in your system");
		system("echo Installing perl");
		`chmod +x ActivePerl-5.6.1.638-i686-linux.rpm`;
		`rpm -ivh ActivePerl-5.6.1.638-i686-linux.rpm`;
	}
	system("echo Calling Pre-install process for dimdim installation");
	...

  src: http://muromec.org.ua/media/files/wall/dimdiminstall_offline.pl

-- 
Промышленность не может быть тяжелой.
Ей надлежит быть легкой и веселой.