Escape-символ в SQL Server

Я думаю, что Вы ищете stat функция (perldoc -f stat)

, В частности, 9-е поле (10-й, индекс № 9) возвращенного списка является последним, изменяют время файла в секундах с эпохи.

Так:

my $last_modified = (stat($fh))[9];