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

use FindBin;
use lib "$FindBin::Bin/../lib";


use CGI;
print CGI->new->header;

##</code><code>##

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

use FindBin;
my $path;
BEGIN {
    if ($FindBin::Bin =~ /(.*)/) {
        $path = $1;
    }
}
use lib "$path/../lib";


use CGI;
print CGI->new->header;