#!/usr/bin/perl use CGI; $query=new CGI; $text=$query->param('text'); open (F,"config.txt"); while (){ chop($_); push(@mas,$_); } close(F); print "Content-type: text/html\n\n"; print <<"END" Transferingas
Pasirinkite užduotį ir duomenų failą

Užduotis:
Failas:
END ; print "

$text

"; print "
"; exit(0);