Always use strictures (use strict; use warnings;). The case error pointed out by jwkrahn would have been caught by use warnings;. Consider:

use strict;
use warnings;

my $msg = '9:23:17';

open (LOG, ">>", 'delme.txt');
print log "$msg\n";
close LOG;
[download]

Prints:

Argument "9:23:17\n" isn't numeric in log at noname.pl line 7.
2.19722457733622
[download]

which indicates you were double stung! log is a Perl built in function so definitely not a good name to chose! However, even if you had avoided the built in function:

use strict;
use warnings;

my $msg = '9:23:17';

open (LOG, ">>", 'delme.txt');
print Log "$msg\n";
close LOG;
[download]

strictures would still save your bacon:

Name "main::Log" used only once: possible typo at noname.pl line 7.
print() on unopened filehandle Log at noname.pl line 7.
[download]

And of course we also strongly recommend you use the three parameter version of open and check for success.

sub appendToTsum
{
    my ($trigger) = @_;
    my $foo = "/tmp/foo";
    my $home = "\\\\t3file3\\datools\\tools\\MTP\\";
    my $logfile = $home."logappend.txt";
    open (LOG, ">>$logfile");

    my $time = time();
    $time = localtime($time);

    if(-e $foo){
        open (SUM, ">>$foo") or print log "$time: Can't write to $foo"
+;
        print SUM "\n\n***********************************************
+******\n";
        print SUM "** $trigger **\n";
        print SUM "***************************************************
+**\n";
        close (SUM);
    }
    
    close (LOG);
}
[download]

$ cat 632370.pl
use strict;
use warnings;
use File::Spec::Functions;
my $root = File::Spec->rootdir();
my $home = catfile( $root, qw ( t3file3 datools tools MTP ) );
my $logfile = catfile ( $home, q{logappend.txt} );
print $home;
print $logfile;
__END__
[download]

# Linux
$ perl -l 632370.pl
/t3file3/datools/tools/MTP
/t3file3/datools/tools/MTP/logappend.txt
[download]

# Win32
C:\src\perl\perlmonks\632370>perl -l 632370.pl
\t3file3\datools\tools\MTP
\t3file3\datools\tools\MTP\logappend.txt
[download]

hi fellow monks, thanks for the prompt reply. Yes actually this is running on an UNIX env. And this script is actually being called on top of another script.
One funny thing i've noticed is that the script should be running prior to the copy to another directory and also before it's being printed out.
But what i'm seeing is that the softcopy doesn't have this information appended and the hardcopy does.
Is the problem really from my script or from the part that runs below it?


# Moved earlier to accomodate changes into the test summaries
#-------------------------------eMarginality Tool extract-------------
+------------------------
if ($RUNMODE eq "P" && $PRODUCT  =~ /7ALGMV|7KEDMV|7ALGRV|7KEDRV|7RAYT
+V/ ) {
    if(-e '/prod/datools/tools/MTP/emt_extract.pl'){
        system "perl /prod/datools/tools/MTP/emt_extract.pl &";
    }
}

unless(-e "$HOME/sbl/orig_sum_dir/$PRODUCT"){
       system "mkdir $HOME/sbl/orig_sum_dir/$PRODUCT";
       system "chmod 777  $HOME/sbl/orig_sum_dir/$PRODUCT";
}

system "cp /tmp/t4sum $HOME/sbl/orig_sum_dir/$PRODUCT/${LOTNO}_${LOC}_
+${TYPE_NUM}${TYPE_LETT}";

unless(-e "$HOME/sbl/printed_sum_dir/$PRODUCT"){
        system "mkdir $HOME/sbl/printed_sum_dir/$PRODUCT";
        system "chmod 777  $HOME/sbl/printed_sum_dir/$PRODUCT";
}

system "cp /tmp/foo $HOME/sbl/printed_sum_dir/$PRODUCT/foo${LOTNO}_${L
+OC}_${TYPE_NUM}${TYPE_LETT}";
system "chmod 777 $HOME/sbl/sbl_sum_dir/$PRODUCT/${LOTNO}_${LOC}_$day$
+month${year}_${ww}";

if ($PRODUCT!~/^(8ARD|7KEDR)/)   {
    system "lpr /tmp/foo &";
}
else {
    system "/data/sbl/cchecklot ${LOTNO}_${LOC} $PRODUCT > /tmp/check_
+print";
    system "sleep 4";

    ## Will check for file exist and PCS triggered before adding the p
+cs message
    if(-e '/tmp/check_print' && $PCS_T == 1 && $SBL_T == 1 && $NUTESTE
+D >= 500 && $PCS_FOUND==1 && $TYPE_NUM==1){
          &print_pcsmess;
    }
    system "lpr /tmp/check_print";
}

system "chmod 777 $HOME/sbl/tmp/${LOTNO}_${LOC}_tmp1";
system "chmod 777 /tmp/t4sum";
system "chmod 777 /tmp/foo";
system "chmod 777 /tmp/check_print";
[download]