Perlで365日以上古いファイルの削除

#!/usr/bin/perl

$dirlinkfile = "削除したいファイルの保管されたディレクトリのフルパス";

opendir(DIR,$dirlinkfile);
@dirfile = readdir DIR;
closedir DIR;

foreach $dirfile(@dirfile){
unlink("$dirlinkfile/$dirfile")
if (-f "$dirlinkfile/$dirfile" && -M "$dirlinkfile/$dirfile" > 365);
}