grep -l in Perl

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open qw(:std :encoding(utf8));
my $today = `date +'log/%Y%m%d/*.txt'`;
for my $f (glob $today) {
  open my $in, '<', $f or die;
  while (<$in>) {
    if (/テスト/) {
      print "$f\n";
      last;
    }
  }
  close $in;
}