#!~/bin/perl5.14.1

use strict;
use warnings;

my $abc;

$abc = `date`;
#$abc = "Hello";

print "DATE : $abc\n";
system("echo $abc >> log.txt");