1N/A#!/usr/bin perl -w
1N/A
1N/Ause strict;
1N/Ause Test::More tests => 1;
1N/A
1N/Ause CGI;
1N/A
1N/A
1N/A$_ = "abcdefghijklmnopq";
1N/Amy $IN;
1N/Aopen ($IN, "t/init_test.txt");
1N/Amy $q = CGI->new($IN);
1N/Ais($_, 'abcdefghijklmnopq', 'make sure not to clobber $_ on init');