sub dummy_ad {
    my $file_ext = lc $_[0];
    if ($file_ext =~ m/gif/) {
        print "$DUMMY_GIF\n";
    } elsif ($file_ext =~ m/jpg|jpeg/) {
        print "$DUMMY_JPG\n";
    } elsif ($file_ext =~ m/png/) {
        print "$DUMMY_PNG\n";
    } else {
        print "$DUMMY_HTM\n";
    }
}

##</code><code>##

%DUMMY_AD = (
 gif => "$DUMMY_GIF\n",
 jpg => "$DUMMY_JPG\n",
 jpeg => "$DUMMY_JPG\n",
 png => "$DUMMY_PNG\n",
);
sub dummy_ad {
    print $DUMMY_AD{lc $_[0]} || "$DUMMY_HTM\n";
}