I know that my problem is related to the HTML I have written not sending the Post data to my Perl Script but I am breaking my head on the wall trying to figure this out.

The HTML:
<form method="post" action="C:\process_feedback1.pl">
Comments about this page
<textarea name="feedback" cols="46" rows="10" wrap="physical" id="feedback"></textarea>
File to Upload for this page<input type="File" name="file">
Proper Name of the File<input type="text" name="filename">

<input value="Send" type="submit"> <input type="reset">



And here is the Perl Code:
#!\perl\bin\perl.exe
use CGI ();
use MIME::Lite;
use Win32::OLE;

my( $query, $up_fil, $fd_bac, $nw_fil, @BR_Comments, $cnt, $headline, $BR_Comments );

print $ENV{QUERY_STRING}, "\n";

$query = CGI->new();

if ($query->param('feedback') eq "") {
print( STDOUT "Nothing came from the html page.\n");
}
$fd_bac = $query->param( 'feedback' ); #The Commemts from the User
$up_fil = $query->upload( 'file' ); #The File to Upload
$nw_fil = $query->param( 'filename' ); #The Filename

print( STDOUT "upload - $up_fil\tnew - $nw_fil\tfeedback - $fd_bac\n" );

#The Commemts that I need to strip down to the first sentence as de-noted by a period
@BR_Comments = split /\./, $fd_bac;
$cnt = scalar( @BR_Comments );
if ( $cnt == 1 ) {

$headline = substr($fd_bac, 0, 125);

} elsif ( $cnt > 1 ) {

$headline = $BR_Comments[0];
$headline = substr($headline, 0, 125);
}

IntEmail( $fd_bac, $up_file, $nw_fil, $headline );

Thanks for the help

Update - The action should have been set as http://windom/feedback/process_feedback.pl

Running on low fumes at this point due to the 16 hours of head smashing.

In reply to HTML Post to Perl Script not working by MetalJepp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.