sub rexec {
    my($host) = shift;
    my($sock) = IO::Socket::INET->new(PeerAddr => $host,
				      PeerPort => 'exec(512)',
				      Proto => 'tcp');
    die "Error opening sock $!" if (!defined($sock));

##</code><code>##

#!/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";
}

##</code><code>##

host=111.22.33.44
host=o!,

##</code><code>##

This is perl, v5.8.5 built for x86_64-linux-thread-multi