Writing to Log File

#!/usr/bin/perl
#   $Id: example-01.pl,v 1.1 2007-08-19 11:19:47 adam Exp $
#   Standard module loading
use strict;
use warnings;
use Log::Trivial;
#   Create a logging object
my $logger = Log::Trivial->new(
    log_file  => 'C:/example.log',
    log_tag   => $$,
    set_level => 3,
);
#   Do stuff #  Log it
$logger->write( 'Stuff worked' );
#   Do more stuff
#   Log that too
$logger->write( 'Did more stuff' );

=cut
# Creates Log file
use Log::Trivial;
$logfile = "C:\\IBM\\Perl Automation_1\\LogFiles\\fimlog\\SetUpStatus.xls";
print $logfile;
# $logger = Log::Trivial->new(log_file => "$logfile", log_level => 3, log_tag => q{});
$logger = Log::Trivial->new(log_file => $logfile, log_level => 1, log_tag => {});
$logger->write("PSW Setup Log\n");
$logger->write("PSW Automation Smoke Test Results Log");
$logger->write(" ");
$logger->write(" ");
=cut