Select Code to Download

sub dummy_ad {
    my $file_ext = lc $_[0];
...
        print "$DUMMY_HTM\n";
    }
}

%DUMMY_AD = (
 gif => "$DUMMY_GIF\n",
...
sub dummy_ad {
    print $DUMMY_AD{lc $_[0]} || "$DUMMY_HTM\n";
}