-my $host = 'google.com';
-my $sleep = 15;
-my $initial_sleep = $sleep;
-my $logpath = '/var/log';
-my $log;
+my ($log, $initial_sleep);
+
+my %opts = (
+ host => 'google.com',
+ sleep => 15,
+ logpath => '/var/local/log',
+ usage => sub { Usage },
+ verbose => sub { set_verbose },
+ debug => sub { set_debug },
+ daemon => 1,
+);