open (LFILE, "<$file");
my $content=join('',<LFILE>);
close (LFILE);
chomp (@lines);

@contents = split(/\|/,$content);

$time=time;

                ($min,$hour,$mday,$mon,$year,$wday) = (localtime($time))[1,2,3,4,5,6];
                $mon++;
                if ($mday<10) { $mday = "0".$mday; }