#! /usr/bin/perl -w
use warnings;

while (){
$date=`/bin/date`;
print "date is -->$date<--\n";
sleep (2);
}