$A¬F$A¬Fww.hotmail.com #### sub dummy_ad { ( $file_ext ) = @_; print "$DUMMY_GIF\n" if $file_ext =~ m/gif/i; print "$DUMMY_JPG\n" if $file_ext =~ m/jpg|jpeg/i; print "$DUMMY_PNG\n" if $file_ext =~ m/png/i; print "$DUMMY_HTM\n"; }