#! /usr/bin/perl
use strict;
use warnings;

my $filename = "logfile.log";
my $string = scalar localtime;

open(my $log_handle, '>>', $filename)
  or die "can't open log file \"$filename\" for appending: $!";

print $log_handle $string;

close $log_handle; # or let $log_handle fall out of scope