Help for this page
epoch=$(perl -MFile::stat -se 'print stat($list)->mtime' -- -list="$li +st") # or, better: epoch=$(perl -MFile::stat -wMstrict '-Mvars=$list' -se 'print stat($li +st)->mtime' -- -list="$list")