#!/usr/bin/perl

use strict;
use warnings;
use Log::Agent;
require Log::Agent::Driver::File;
require Log::Agent::Tag::String;
require qw(/path/to/my_code.pl);  # the script to run

my $err = '/path/to/file.err';
my $out = '/path/to/file.out';

my $driver = Log::Agent::Driver::File->make(
	-prefix => 'me',
	-channels => {
		'error' => $err,
		'output' => $out
	},
);
my $t1 = Log::Agent::Tag::String->make(-value => "<tag #1>");
my $t2 = Log::Agent::Tag::String->make(-value => "<tag #2>", -postfix => 1);

logconfig(
	-driver		=> $driver,
	-tags		=> [$t1],
);

logerr "error string";

use Log::Agent qw(logtags);
my $tags = logtags;
$tags->append($t2);

logwarn "warn string";