How to mail attachment with data in a executed variable

[pritee]

#!/usr/bin/perl -w
use strict;
use warnings;
use MIME::Lite;

my $DirPath='filepath';

opendir (DIR, "$DirPath") or die "Cannot open $DirPath $!\n";

my $recent='find filepath -mtime -51 -type f';
system($recent) ;

Now i am getting required filename but i want to mail contents of that file in a mail as a attachment.