creating a page.
no idea what i'm doing.
as usual.
#!/usr/local/bin/perl while (<>) { $x = 1; print $x; }
select * from dual;