Looks like you are trying to get %formdata from a form on a webpage, yes? You might want to first, use CGI; and then try building an html form to get your users input, then your form values will be available in $query->param('value'). Example below:

#!perl -wT
use strict;
use CGI;

# Basic CGI.pm form usage.

my $query = new CGI;

print $query->header;
print $query->start_html("CGI.pm Basic form.");

print $query->start_form;
print "<b>To:</b>";
print $query->textfield('to');
print "<b>From:</b>";
print $query->textfield('from');
print "<b>Message:</b>";
print $query->textfield('body');
print "<p>",$query->reset;
print $query->submit('Action','Stumbit');
print $query->endform;
print "<hr>";
print "YOUR potential business is VERY IMPORTANT  .... etc";


print $query->end_html;

# Later on parse your $to $from etc from $query->param('nameofvalues')
+ instead of $formdata{'nameofvalues'}
# and do your mailing, prefferably with a module from CPAN
[download]

There is much, much more that needs to be done to make sure that CGI script is secure and functional. You may want to consider checking out Ovid's CGI Course located here: Ovids CGI Course, and some of merlyn's colums located here: WT Colums by Randal.

UPDATE:Just a note, that code is un-tested.