#!/usr/local/bin/perl
use strict;
use warnings;
use Log::Log4perl qw(:easy);

my $logfile = '/home/y/logs/mylogger.log';
Log::Log4perl->easy_init({ level => $DEBUG, 
file => ">>$logfile", 
layout => "%d %F{1}-%L: %m%n" });

my $i = 1;
while($i <= 50) {
    DEBUG "This is a log message";
    sleep(10);
}