#get seconds for login time supplied
print "values sent to time local 1:1:1:$pday:$pmon:$pyear";    
use Time::Local; 
$pepoch=timelocal(1,1,1,$pday,$pmon,$pyear);
print " return value is $pepoch\n";