Not exactly sure what you mean, but here's a couple of examples:

# example #1
eval q{
    my $msg = Mail::Sender->new( {
        from => 'you@example.com',
        to   => 'me@example.net'
    } );
} or die("mail error: $Mail::Sender::Error");


# example #2
eval q{
    my ($from, $to) = ('you@example.com', 'me@example.net');

    my $msg = Mail::Sender->new( {
        from => $from, to => $to
    } );
} or die("mail error: $Mail::Sender::Error");

# example #3
eval q{
    my %vars = (
        from => 'you@example.com', to => 'me@example.net'
    );

    my $msg = Mail::Sender->new( \%vars );
} or die("mail error: $Mail::Sender::Error");
[download]