I'm not finished :D

the eq and || opearators don't chain like that

here is how I might write this 

#!/usr/bin/perl --
use constant DEBUG => !!( 0 || $ENV{PERL_DEBUG_MYAPPNAME} );
use CGI::Carp qw( fatalsToBrowser );
use CGI;

# to avoid those pesky 500 errors
BEGIN {
    CGI::Carp::set_message(
        sub {
            print "<h1>something broke, we know what it is, thank you,
+ try again later</h1>\n";
            if (DEBUG) {
                print '<p>', CGI->escapeHTML(@_), '</p>';
            }
        }
    );
} ## end BEGIN


use strict;
use warnings;

use File::Copy qw' copy ';
use LWP::MediaTypes qw( guess_media_type );
#~  use MIME::Types 'by_suffix'; BEGIN { *guess_media_type = *by_suffi
+x; }
use CGI ();

Main( @ARGV );
exit( 0 );

sub Main {
    
#~     return DebugCGI(); # generic, env.cgi
    return SpitThisImage();
}

sub Main {
    my $document_root = $ENV{'DOCUMENT_ROOT'};
    $document_root =~ s{/$}{};
    my $file = $document_root."/comingsoon.gif";
    
#~ $ perl -MRegex::PreSuf -le " print presuf( @ARGV ) " jpeg jpg jpe b
+mp gif png
#~ (?:bmp|gif|jp(?:eg|[eg])|png)
    if( $file =~ /(?:bmp|gif|jp(?:eg|[eg])|png)$/i ){
        my $size = -s $file;
        
        $size or die "No file ($file) : $!" ;
        
        my $type = guess_media_type( $file );
        
        print CGI->header(
            -type => $type,
            -Content_length => $size,
        );
        
        copy( $file, \*STDOUT );
        
    } else {
        die "No image ($file) ";
    }
} ## end sub Main

sub DebugCGI {
    my $cgi = CGI->new;
    print $cgi->header();    # Write HTTP header
    print $cgi->start_html,
      $cgi->b( rand time, ' ', scalar gmtime ),
      '<table border="1" width="%100"><tr><td>',
      $cgi->Dump,
      '</td>',
      '<td><div style="white-space: pre-wrap; overflow: scroll;">',
      $cgi->escapeHTML( DD($cgi) ),
      '</div></td></tr></table>',
      CGI->new( \%ENV )->Dump,
      $cgi->end_html;
} ## end sub DebugCGI

sub DD {
    require Data::Dumper;
    scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump;
}

[download]

See perlintro, perlop

See also http://learn.perl.org/books/beginning-perl/ and the Modern Perl Book

In reply to Re^3: Gzip compression issue? by Anonymous Monk
in thread (SOLVED by Anonymous Monk) Gzip compression issue? by Inexistence

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.