Perlで1日以上古いファイルのgzip圧縮

#!/usr/bin/perl

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

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

foreach $dirfile(@dirfile){

system ("/bin/gzip $dirlinkfile/$dirfile")
if (-f "$dirlinkfile/$dirfile" && -M "$dirlinkfile/$dirfile" > 1);

}