while (my $cgi = new CGI::Fast ()) {
    # process the current request...
    exit if -M $file < 0;
}