use subs qw(date who ls);
date;