#!/usr/bin/perl

use strict;
use warnings;
use 5.008;

sub say (@){
    local $\ = "\n";
    print @_ ? @_ : $_;
}

say 'Hey';