use Data::Dumper;
my @list=`find . -type f -mtime +30`;
print Dumper \@list;