Shell Programming and Scripting

Hello,

I'm a newbie to the world of programming and so i decided to take up perl. I'm trying to learn how to modify the script below in order to have it sent with attachments. Any suggestions?

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

my $from = 'xxx@domain.com';
my $to = 'xxx@domain.com';
my $cc = 'xxx@domain.com';
my $from = 'xxx@domain.com';
my $subj = 'Testing';
my $body = 'TEST';

open my $pipe, '|-','/usr/bin/mailx', '-s',$subj, '-c', $cc, $to, "-f$from",
or die "can't open pipe to mailx: $!\n";

print $pipe $body ;

close $pipe;

die "mailx exited with a non-zero status: $?\n" if $?;