#! perl use strict; use warnings; use Data::Dump; my $body = 'Hello!'; my $code = 1; my $email = 'addressee'; my $file_name = 'unknown'; my $from = 'sender'; my $name = 'A Nonny Mouse'; my $subject = 'Greeting'; my $attached = $code ? "attach_path => '$file_name', " . "attach_filename => '$file_name', " . "attach_type => 'application/txt'," : ''; my $success = { to => $email, from => $from, from_name => $name, subject => $subject, body => $body, eval $attached, }; dd $success;