#!/usr/bin/perl

use strict;
use warnings;
use Mail::Sender;

our $sender = new Mail::Sender {smtp => 'smtp.yourdomain.com', from => 'your.address@yourdomain.com'};

sub EnviaEmail {
    my ($mail, $subject, $msg, $file) = @_;
       $sender->MailFile({to => '$mail', subject => '[$subject]', msg => "\n$msg\n", file => '$file'});
    return;
}

...