#!/usr/bin/perl 

use strictandwarnings;
# use strict;
# use warnings;

# my $x;
print "$x\n";

$x = '$y';

print header(), start_html(), "\n";