Проверка

#!/usr/local/bin/perl use CGI; $query = new CGI; print $query->header; print "Проверка\n"; print "Проверка прошла успешно.";