#!/usr/bin/perl

my $address    = 'some@address';
my $attachment = 'some.file';
my $subject    = 'some subject';

system "mutt -a '$attachment' -s '$subject' '$address' </dev/null";