print LOG "[@{[scalar localtime]}] $log: @data \n";