my $user = $q->param('user_id') 
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time);
$time = sprintf "%4d-%02d-%02d\t%02d:%02d\n", 1900+$year,$mon+1,$mday,$hour+5,$min+30;#Displaying time 
my $regfile = 'report1.txt';
open(REG,">>$regfile") or die"Cannot open";
 print REG "$user\t$time\n";
    close(REG);