#!/usr/bin/perl -w use CGI qw(:standard); if (param()) { $teksti = param('teksti'); $teksti =~ s\&\&\g; $teksti =~ s\<\<\g; $teksti =~ s\>\>\g; $font = param('font'); $size = param('size'); $color = param('color'); $x = int(rand(100)); $y = int(rand(100)); # $url = param('url'); $z = int(rand(100)); open(NFILE, ">> tekstit.ssi") or print "Virhe: $!"; flock(NFILE, 2); print NFILE < $teksti OMAA flock(NFILE, 8); print "Location: ./\n"; print "Content-type: text/html\n\n"; print 'WC:n seinä

WC:n seinä

'; } else { print STDOUT < Ei löydy

Ei löydy

OMAA }