#!/usr/bin/perl -w
use strict;
 
my $date = system("date +%x_%T");
open (FILE, ">>output.txt") or die "Can't open output.txt\n";
print FILE "$date Script worked correctly\n";
close (FILE);