use File::Tail; 
my $file = File::Tail->new("/home/logs/2013/05.15/users/Client.log"); 
$debug_log = "$ENV{HOME}\/log_scrape_debug.log"; 
while (defined(my $line= $file->read)) { 
	open(OUT,">> $debug_log"); 
	print OUT $line; 
	close(OUT); 
}

my $debug_log = "$ENV{HOME}/log_scrape_debug.log"; 
 
open my $debug_fh, '>>', $debug_log or die "failed to open '$debug_log' $!"; 
 
while (defined(my $line = $file->read)) { 
    print $debug_fh $line; 
} 
 
close $debug_fh;

open my $debug_fh, '>:encoding(UTF-8)', $debug_log 
  or die "failed to open '$debug_log' $!";

my $file = File::Tail->new( 
                name        => "/home/logs/2013/05.15/users/Client.log", 
                tail        => 0,  # set to -1 if you want to start at the beginning of the file instead of the end 
                interval    => 2, 
                maxinterval => 10, 
                debug       => 1, 
);