#!/usr/bin/perl -w
use strict;
use File::Find;
use Cwd;

my $directory = "N:/Scripts/test";
find(\&insert_code, $directory);

sub insert_code {
  if($File::Find::name =~ m/\.html$/i) {
    print getcwd "-> $File::Find::name\n"; #ausgabe verzeichnis+dateiname
  }
}