#!/usr/bin/perl
use CGI qw(:standard);
use strict;
my $name = param('name');
print header();
if ($name) { print "Welcome " . $name }