sub mal
{
    
	my $webname = "first word";
	return $webname; 
	
}

use Mail::Sendmail;
        my %mail = ( To      => 'you@hotmail.com',
                     From    => 'me@hotmail.com',
                     Subject => mal(),  #this gives me output in my mail subject of "first word"
                     Message => "data here",
                       );