projects
/
catagits/Catalyst-Controller-WrapCGI.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b1cb8ab675ba8fa62cc84ecc84233d389618c982
[catagits/Catalyst-Controller-WrapCGI.git]
/
t
/
lib
/
TestCGIBin
/
root
/
cgi-bin
/
sigs.pl
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use CGI ':standard';
7
8
$SIG{__DIE__} = sub { print "DIED!\n" };
9
$SIG{__WARN__} = sub { print "WARNED!\n" };
10
11
print header;