#!/usr/bin/env perl
use warnings;
use strict;

foo('111.22.33.44');
foo(111.22.33.44);
sub foo {
    my $host = shift;
    print "host=$host\n";
}