override exit() for Perl cgis in cgi-bin

[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBin / root / cgi-bin / exit.pl

#!/usr/bin/perl

use strict;
use warnings;

use CGI ':standard';

print header;
print "hello " . param('name');
exit(param('exit') || 0);