my $extract;
my $file;
{
    local @ARGV = split /&/, $ENV{'QUERY_STRING'};

    GetOptions(
        'file=s'   => \$file,
        'extract!' => \$extract,
    );
}