#!/usr/bin/perl
 
 use strict;
 use warnings;
 
use Log::Dispatch;
use Log::Dispatch::FileRolling;
use Date::Format;
use File::Spec;
 
my @loc = localtime();
my $current_date = Date::Format::strftime("%Y%m%d", @loc);
my $log_dir = "/tmp/myapp";
my $logfile = "myapp.%d{yyyyMMdd}.log";
 
our $HOSTNAME = `hostname`;
chomp $HOSTNAME;

my $log = new Log::Dispatch(
      callbacks => sub { my %h=@_; return $HOSTNAME." $0 \[$$]: ".$h{message}."\n"; }
);
      
$log->add(Log::Dispatch::FileRolling->new(
                                        name      => 'file1',
                                        min_level => 'info',
                                        filename  => File::Spec->catfile($log_dir, $logfile),
                                        mode      => 'append'
                                        )
);
      

$log->info("Starting Processing:  ".localtime());