Perl - delete files in folder older than ...

delete_older_than_example.pl

#!/usr/bin/perl
use File::Find;

my $backup_root = "/path/to/folder"

# purge backups older than AGE in days
my @file_list;
my @find_dirs       = ($backup_root);           # directories to search
my $now             = time();                   # get current time
my $days            = 30;                       # how many days old
my $seconds_per_day = 60*60*24;                 # seconds in a day
my $AGE             = $days*$seconds_per_day;   # age in seconds
find ( sub {
  my $file = $File::Find::name;
  if ( -f $file ) {
    push (@file_list, $file);
  }
}, @find_dirs);

for my $file (@file_list) {
  my @stats = stat($file);
  if ($now-$stats[9] > $AGE) {
    unlink $file;
  }
}
print "Deleted files older than $days days.\n";

There is a syntax error at line 7
I should be --> my $backup_root = "/path/to/folder";
; is missing