Its much more basic than that, see Re^4: Trying to Insert Alt Tags Programmatically, your program, once again, looks nothing like that, you still got Metabot, and all the other things you copy/pasted, except now you have Ebola and Botulism too.

#!/usr/bin/perl --
use strict;
use warnings;

use ... all the other things that you need;

Main( @ARGV ):
exit( 0 );
[download]

Another question what is sub Ebola supposed to be doing?

Nothing if you don't know. I could try to explain how it was supposed to replace part of your code that kept repeating, how you're supposed to make sure it does what you need, and name it something descriptive, but honestly, whats the point, you're just going to ignore what i wrote, and copy/paste the code section