#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);

print header('text/plain'),
   'window.document.title = "Acesta este continutul fisierului"'
;