#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;  # <-------- You need this

# ---
print hr;
# ---