#!/usr/bin/perl

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

no warnings 'redefine';

sub header{
    print "sub Vars";
}