#!/usr/bin/perl -T

use strict;
use warnings;

use lib '/home/lib';
use Current::My_App;

use CGI;
$CGI::POST_MAX=102400; # Limit post to 100kB
$CGI::DISABLE_UPLOADS=0; # Allow file uploads
my $q=CGI->new; # Create query object
if ($q->cgi_error()) {
    print $q->header(-status=>$q->cgi_error());
    exit 0;
}

my $app=Current::My_App->new(query=>$q);
$My_App->run();