#!/usr/bin/perl
package hoge::fuga::geho;

use strict;

use Time::HiRes;
use File::Copy;
use IO::Socket;

...
(snip)
...

	my $sock = new IO::Socket::INET(
		PeerAddr => $host,
		PeerPort => $port,
		Proto    => 'tcp',
	);

...
(snip)