use File::Spec::Functions qw( catfile );

# ...

my $x = stat( catfile $dirname, $file )->mtime;