package lolcatime;
require Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = qw(lolcatime localtime);
*localtime  = \&lolcatime;
sub lolcatime {
  my $foo;
  return wantarray
  ? CORE::localtime(shift||time)
  : uc((($foo=scalar(CORE::localtime(shift||time)))=~s/:(\d+) / /)
    && "$foo - i can haz ur $1 seconz?");
}
1;