my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
- print "enter $tag ", tag($tag);
+ print localtime." enter $tag ", tag($tag);
},
leave => sub {
my $tag = shift;
- print "leave $tag ", tag($tag);
+ print localtime." leave $tag ", tag($tag);
},
);
- warn scalar localtime, " visible: ",join(' ',@visible),"\n";
+ warn localtime." visible: ",join(' ',@visible),"\n";
} while $loop;